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

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

: Написать программы с использованием - условного оператора, - логической переменной, определяющие расположение точки А(х,у) относительно заштрихованной области: принадлежит области или не принадлежит.

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

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

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

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

Объявлены три переменные: x, y, f типа real.
Введен блок begin и в нем выводится запрос на ввод координат точки.
С помощью функции readln введенные значения сохраняются в переменных x, y.
Выполняется условие проверки принадлежности точки к заштрихованной области: а) y>=-1 - условие на неотрицательность y; б) y-1+abs(x-2)<=6 - проверка попадания точки в заштрихованную область по координатам.
Если условие выполняется, то выводится сообщение Точка принадлежит заштрихованной области, иначе выводится сообщение Точка не принадлежит заштрихованной области.
Вычисляется значение переменной f:=(y>=-1)and(y+1+abs(x-2)<=6).
С помощью функции write выводится значение переменной f.
Код завершается.