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

var num1,num2,check:integer;summ:real;

begin

ReadLn(num1);

ReadLn(num2);

summ:= num1 * num2;

check:= Trunc(summ) mod 2;  

if((summ<0)and(check = 0)) then

 summ*=-2

else

 summ*=1.5;

WriteLn(summ);

end.