С клавиатуры вводятся координаты точки в декартовой системе координат, требуется написать программу, определяющую по координатам точки, в какой четверти она находится.

спасибо большое! :)

var  x,y:integer;begin  writeln('Введите x');  readln(x);  writeln('Введите y');  readln(y);  if (x>=0)and(y>=0) then writeln('1-четверть')else  if (x>=0)and(y<=0) then writeln('4-четверть')else  if (x<=0)and(y>=0) then writeln('2-четверть')else  writeln('3-четверть')end.