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

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)<br> else
writeln(a+b);
readln;
end.