Даны 2 числа,если числа положительные найти их сумму,если отрицательные найти их произведение

//Pascal

var a, b: integer;

begin

write ('Введите два числа: ') ; readln (a, b) ;

if ((a < 0) and (b < 0)) then

writeln (a * b)

else

if ((a > 0) and (b > 0)) then

writeln (a + b)

else

writeln (a*3 + b*2) ;

end.