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

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

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

if (y>=1)or(y>=abs(x)) then
   writeln("Да")
else
   writeln("Нет");

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

Задана условная конструкция if-else.
В условии используется логическое выражение, которое проверяет, принадлежит ли точка с координатами x, y заштрихованной части плоскости.
Логическое выражение состоит из двух частей, объединенных оператором or.
Первая часть проверяет, что y больше или равно 1.
Вторая часть проверяет, что y больше или равно абсолютному значению x.
Если условие выполняется, то программа выводит на экран слово Да.
Если условие не выполняется, то программа выводит на экран слово Нет.