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

Программа без шапки

Read(a);

Read(b);

C:=a*b;

If c<0 then

Begin

c:=c*2;

Writeln(c);

End;

Else

C:=c*1.5;

Writeln(c);

End.

------------

Реестр символов не учитывать