составить программку для паскаляопределить и вывести на печать номер четверти, в

Var x,y:real;

begin   
  write('Введите координаты точки M(x,y): ');    
  readln(x,y);

  if(xgt;0)and(ygt;0)then writeln('Точка M находится в 1 четверти');   
  else if(xlt;0)and(ygt;0)then writeln('Точка M находится в 2 четверти');    
  else if(xlt;0)and(ylt;0)then writeln('Точка M находится в 3 четверти');   
  else if(xgt;0)and(ylt;0)then writeln('Точка M находится в 4 четверти')   
  else writeln('Точка M лежит на оси(осях) координат');

end.