Нахождениеточки с координатами (х,у).
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.