Принадлежит ли точка с координатами (х,у) заштрихованной области - Pascal ABC (13007)

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

помогите сделать пожалуйста Пользователь вводит целые числа x и y. Составить программу, которая определяет, принадлежит ли точка с координатами (x,y) заштрихованной области на рисунке.

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

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

var
  x,y: real;
begin
  write('Введите координаты точки x, y: ');
  readln(x,y);
  if not((y<100)and(y>-200)and(x>-200)and(x<200))
    and (sqrt(sqr(x)+sqr(y))<=400) then 
      writeln('Точка принадлежит области.') else
        writeln('Точка не принадлежит области.');
  readln;
end.

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

В начале объявляются две переменные типа real - x и y, которые будут использоваться для хранения координат точки.
Затем выводится сообщение с просьбой ввести координаты точки x, y.
С помощью функции readln считываются введенные пользователем значения для x и y.
Далее проверяется условие принадлежности точки заштрихованной области. Для этого используются следующие условия:
- y должно быть между 100 и -200
- x должно быть между -200 и 200
- расстояние от точки до диагонали, проведенной из центра координат до точки, должно быть меньше или равно 400
Если хотя бы одно из условий не выполняется, то выводится сообщение Точка не принадлежит области. В противном случае выводится сообщение Точка принадлежит области.
Выводится символ новой строки с помощью функции readln.