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

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

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

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

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

var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if abs(2*x)+abs(y)<=1 then write('Точка принадлежит заштрихованной области')
else write('Точка не принадлежит заштрихованной области')
end.

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

Создаются две переменные типа real с именами x и y для хранения координат точки.
Выводится сообщение «Введите координаты точки» для запроса у пользователя значений x и y.
С помощью функции readln считываются значения x и y из стандартного ввода.
Вычисляется значение выражения 2x и 2y для определения расстояния от точки до диагонали заштрихованной области.
Вычисляется значение выражения abs(2*x)+abs(y) для определения расстояния от точки до границы заштрихованной области.
Если значение выражения равно или меньше 1, то точка принадлежит заштрихованной области, иначе точка не принадлежит заштрихованной области.
Результат проверки выводится на экран с помощью функции write.