Question

Помогите информатику.
Ввести 2 числа ,найти их сумму и произведение ,если произведение  окажется  положительным ,то выдать его на экран,а  иначе выдать  на экран сумму.

Answer 1

var
a,b:integer;
begin
readln(a,b);
a:=a*b;
if a>0 then
writeln(a)
else
writeln(a+b)
end.