Программа chetv;
вкл CRT;
пер x,y:вещ;
 начало
  Очистить_Экран;
  Курсор(30,10);
  Писать('Введите координаты точки:'); Читать_Стр(x,y);
  Курсор(30,12);
  если (x>0) и (y>0) то Писать('1 четверть');
  если (x<0) и (y>0) то Писать('2 четверть');
  если (x<0) и (y<0) то Писать('3 четверть');
  если (x>0) и (y<0) то Писать('4 четверть');
  если (x=0) или (y=0) то
   начало
    Писать('Точка лежит на осях координат и поэтому');
    Курсор(30,13);
    Писать('не принадлежит никакой четверти')
   конец;
  Читать_Стр
 конец.