Написать решение этой задачи ** языке Pascal.

Question

Написать решение этой задачи на языке Pascal.

---

Answer 1

Var x,y: integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln (1);
if (x<0) and (y>0) then writeln (2);
if (x<0) and (y<0) then writeln (3);<br>if (x>0) and (y<0) then writeln (4);<br>if (x=0) and (y=0) then writeln ('1 2 3 4');
if (x=0) and (y>0) then writeln ('1 2');
if (x=0) and (y<0) then writeln ('3 4');<br>if (x>0) and (y=0) then writeln ('1 4');
if (x<0) and (y=0) then writeln ('2 3');<br>end.