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

Составить алгоритм вычисления суммы двух чисел,если они оба отрицательные,в противном случае вычисления их произведения

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

Var a,b:integer;
begin
  writeln(Введите два числа: );
  readln(a,b);
  if (a<0) and (b<0) then writeln(a+b)
    else writeln(a*b);
end.