Определить, какой четверти координатной плоскости, оси х, оси у или началам координат принадлежит точка с координатами, заданными случайным образом. pascal abc

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