Решить : ) даны два числа если их произведение отрицательно то увеличить его в 2 раза иначе уменьшить в 1,5 раз

program by_Relhem;
var
a,b,c:integer;
d:real;
begin
writeln ('Введите да числа, разделяя их пробелом');
read (a,b);
c:=(a*b);
if c<0 then d:=c*2 else d:=c/1.5;
writeln ('Ваш ответ: ',d);
end.