Попадает ли точка с заданными координатами в область закрашенную серым цветом - Pascal ABC

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

Написать программу,которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы программы вывести в виде текстового сообщения.

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

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

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

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

Переменные r, x, y объявлены как real, что означает, что они могут содержать десятичные числа.
Строка R= выводит сообщение для пользователя о том, что требуется ввести значение переменной r.
Строка Введите координаты точки выводит сообщение для пользователя о том, что требуется ввести значения переменных x и y.
Числа x и y читаются в переменные x и y с помощью функции readln.
Если abs(x) <= r и abs(y) <= r и (x + r)^2 + (y - r)^2 >= r^2 и (x - r)^2 + (y + r)^2 >= r^2, то точка попадает в область. Это проверяется с помощью функции sqr, которая возводит число в квадрат.
Если условие из предыдущего пункта не выполняется, то точка не попадает в область. Это также проверяется с помощью функции sqr.
В конце программы выводится сообщение, указывающее, попадает ли точка в область или нет.