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

Program al;
var  a,b:integer ;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a<0) and (b<0) then writeln(a*b)
 else
writeln(a+b);
readln;
end.