Проверить принадлежит ли точка, заданная координатами, заштрихованной области - Pascal ABC (14118)

Формулировка задачи:

Проверить принадлежит ли точка, заданная координатами, заштрихованной области. Вывести на экран TRUE или FALSE.

Решение задачи: «Проверить принадлежит ли точка, заданная координатами, заштрихованной области»

Листинг программы

var x,y:real;
    f:boolean;
begin
writeln('Введите координаты точки x,y');
readln(x,y);
f:=(x*x+y*y<=1)and(x*y<=0)and(abs(x)+abs(y)>=1);
write(f);
end.

Объяснение кода листинга программы

В начале объявляются переменные x, y и f типа real и boolean соответственно.
Затем выводится сообщение для ввода координат точки x, y.
С помощью функции readln считываются значения x и y.
В переменную f записывается условие, которое проверяет, принадлежит ли точка заданной области. Условие состоит из трех частей: проверка на равенство квадрата x^2 + y^2 1, проверка на неравенство x*y <= 0 и проверка на неравенство abs(x) + abs(y) >= 1.
Наконец, выводится значение переменной f.