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

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

var a,b,res:integer;beginwrite('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 = -5b = 8Результат = -40Блок-схема - в прилагаемом файле.