Принадлежит ли точка с координатами x, y заштрихованной части (2) - Pascal ABC

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

Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости

Решение задачи: «Принадлежит ли точка с координатами x, y заштрихованной части (2)»

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

var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if((abs(x)<=1)and(y>=abs(x)))or((abs(x)>1)and(y>=1))
then write('Принадлежит')else write('Не принадлежит')
end.

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

Создается переменная x типа real, которая будет использоваться для хранения значения x координаты.
Создается переменная y типа real, которая будет использоваться для хранения значения y координаты.
Выводится сообщение Введите координаты точки.
С помощью функции readln() считываются значения x и y от пользователя.
Вычисляется значение abs(x) - абсолютное значение x (в данном случае, это просто x).
Вычисляется значение abs(y) - абсолютное значение y (в данном случае, это просто y).
Проверяется условие (abs(x)<=1)and(y>=abs(x)) или (abs(x)>1)and(y>=1). Это условие проверяет, принадлежит ли точка заштрихованной части. Если оба условия истинны, то точка принадлежит заштрихованной части, иначе - нет.
В зависимости от результата проверки выводится сообщение Принадлежит или Не принадлежит.