Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.