Question

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

Answer 1

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

Answer 2

var a,b,res:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if (a<0)and(b<0) then res:=a+b else res:=a*b;
writeln('Результат = ',res);
end.

Пример:
a = -5
b = 8
Результат = -40
Блок-схема - в прилагаемом файле.