uses crt-

var x,y:integer-

begin-

clrscr-

writeln(‘Введите координаты точки (x)’)-

readln(x)-

writeln(‘Введите координаты точки (y)’)-

readln(y)-

IF (x = 0) OR (y = 0) THEN writeln (‘Точка лежит наразделе четвертей’)-

IF (x &gt- 0) AND(y &gt- 0) THEN writeln(‘I-я четверть’)-

IF (x &lt- 0) AND(y &gt- 0) THEN writeln(‘II-я четверть’)-

IF (x &lt- 0) AND(y &lt- 0) THEN writeln(‘III-я четверть’)-

IF (x &gt- 0) AND(y &lt- 0) THEN writeln(‘IV-я четверть’)-

end.