Напишите программу.
Даны два числа. Если числа больше нуля, то сложить их, а если меньше перемножить.
Пожалуйста помогите, очень срочно

• 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.