Заданы числа a и b. Если они положительные то найти их произведение а в остальных случаях найти их сумму.

program abc;

var

a, b, c: integer;

begin

readln (a);

readln (b);

if (a > 0) and (b > 0) then c : = a * b

else c : = a + b;

writeln (c);

end.

Код написан на языке Паскаль. Создаём переменные a, b, c. Считываем два числа и записываем их в переменные "a" и "b". Проверяем, являются ли оба числа положительными (т. е. больше нуля). Если да, то в переменную "c" записываем произведение, если нет, то - сумму. Выводим значение переменной "c".