Определить, принадлежит ли точка заданной области - Pascal ABC (12664)

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

Принадлежит ли точка М(x;y) закрашенной области. Крайние точки области y(2;-2) x(1;-1), т.е. ромб.

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

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

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

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

Создается переменная x типа real, и присваивается ей значение, полученное от пользователя.
Создается переменная y типа real, и присваивается ей значение, полученное от пользователя.
Выводится сообщение 'Введите координаты точки'.
Считываются значения x и y от пользователя с помощью функции readln().
Вычисляется значение abs(x)+abs(y/2). Здесь abs() - это функция, которая возвращает абсолютное значение числа.
Если значение из п.5 меньше или равно 1, то выводится сообщение 'Точка принадлежит области'.
Если значение из п.5 больше 1, то выводится сообщение 'Точка не принадлежит области'.