Определить , в каком квадранте находится точка (x, y) и вывести номер квадранта

ввод: x ^ y с/п.

п1 -> п0 x=0 07 0 с/п ип1 x=0 12 0 с/п

ип1 x> =0 22 ип0 x> =0 20 1 с/п 2 с/п

ип0 x< 0 27 3 с/п 4 с/п

с учётом моментов, когда точки лежат на осях.

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.