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

uses crt;vara,b,c:real;beginclrscr;writeln('введите 2 числа через пробел');readln(a ,b);c:=a*b;if (c<0) then beginc:=c*2;writeln(c:0:2);endelse beginc:=c*1.5;writeln(c:0:2);end;end.