Напишите программу.
Даны два числа. Если числа больше нуля, то сложить их, а если меньше перемножить.
Пожалуйста помогите, очень срочно
Напишите программу.
Даны два числа. Если числа больше нуля, то сложить их, а если меньше перемножить.
Пожалуйста помогите, очень срочно
var x,y,z:integer;
begin
readln(x,y);
if (x>0) and (y>0) then z:=x+y;
if (x<0) and (y<0) then z:=x*y;
end.