Попадает ли точка М в заштрихованную область - Pascal

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

Попадает ли точка М в заштрихованную область.

Решение задачи: «Попадает ли точка М в заштрихованную область»

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

var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if((abs(x)<=5)and (abs(y)<=5))and((x*x+y*y<=9)or(x*x+y*y>=16))
then write('Принадлежит')else write('Не принадлежит')
end.

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

Создаются две переменные типа real, x и y, для хранения координат точки.
Выводится сообщение 'Введите координаты точки'.
С помощью функции readln считываются координаты точки от пользователя.
Вычисляется модуль каждой координаты с помощью функции abs.
Проверяется условие: abs(x) <= 5 и abs(y) <= 5. Это означает, что точка находится в заданном квадрате размером 5х5.
Вычисляется площадь квадрата с помощью формулы (xx + yy).
Проверяется условие: xx + yy <= 9 или xx + yy >= 16. Это означает, что точка находится внутри прямоугольника размером 3х4.
Если все условия выполняются, то выводится сообщение 'Принадлежит'.
Если хотя бы одно из условий не выполняется, то выводится сообщение 'Не принадлежит'.