На программирования: ввести 2 числа,если их произведение отприцательное,умножить на -2,в противном случае умножить на 2

Var
a,b,c:integer;

begin
writeln("Введите 2 числа, которые будете умножать: ");
readln(a);
readln(b);

c:=a*b;

if (c<0) then
c:=c*(-2);
else
c:=c*2;

writeln("ответ: ", c);
end.