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

Var x,y:real;

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

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

end.