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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.