Помогите с поскалем. Ввести 2 числа. Если их произведение отрицательно, умножить его на 2 и вывести на экран. Воротившегося случае увеличить его в 1,5 раза и вывести на экран

Вопрос школьника по предмету Информатика

Помогите с поскалем. Ввести 2 числа. Если их произведение отрицательно, умножить его на 2 и вывести на экран. Воротившегося случае увеличить его в 1,5 раза и вывести на экран

Ответ учителя по предмету Информатика

Program n1;

var a,b: real;

begin

readln(a,b);

if a*b<0 then writeln(a*b*2) else writeln(a*b*1.5);

end.