Question

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

Answer 1

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.