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 > 0) AND (y > 0) THEN writeln('I-я четверть');
IF (x < 0) AND (y > 0) THEN writeln('II-я четверть');
IF (x < 0) AND (y < 0) THEN writeln('III-я четверть');
IF (x > 0) AND (y < 0) THEN writeln('IV-я четверть');
end.