Проверка принадлежности точки с координатами (x,y) заштрихованной области на плоскости - PascalABC.NET

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

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

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

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

var a, b, c, d, x, y : Real;
begin
  Write('Введите через пробел значения a, b, c, d, x, y : ');
  ReadLn(a, b, c, d, x, y);
  WriteLn('Точка ' + ((x>=a)and(x<=b)and(y>=c)and(y<=d)?'':'не ') + 'принадлежит заштрихованной области.');
end.

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

Объявлены переменные a, b, c, d, x, y типа Real.
Выводится приглашение для ввода значений переменных через пробел.
С помощью функции ReadLn введенные значения сохраняются в переменных a, b, c, d, x, y.
Выводится сообщение, указывающее принадлежит ли точка с координатами (x,y) заштрихованной области или нет.
Если точка принадлежит заштрихованной области, выводится сообщение Точка принадлежит заштрихованной области..
Если точка не принадлежит заштрихованной области, выводится сообщение Точка не принадлежит заштрихованной области..