В этой программе определяется номер четверти, в которой находится точка с заданными координатами. Вы вводите координаты, а программа выдает номер четверти.

var 
 x,y: integer; // Координаты точки
 Quater: integer; // Номер четверти
begin
 write('Введите координаты точки: ');
 readln(x,y);
 if x>0 then
 if y>0 then
 Quater := 1
 else Quater := 4
 else 
 if y>0 then
 Quater := 2
 else Quater := 3;
 writeln('Номер четверти = ',Quater);
end.

---

---