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

Question

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

Comments

на паскале

---

писать на паскале

---

ну да

Answer 1

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