Написать программу которая определяет попадает ли точка с заданными координатами в область - Turbo Pascal

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

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

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

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

uses crt;
var x,y,r:real;
begin
clrscr;
repeat
write('r>0 r=');
readln(r);
until r>0;
writeln('x,y');
readln(x,y);
if((x<=0)and(y>=0)and(x*x+y*y<=r*r))
or((x>0)and(y<=0)and(y>=-2*x)and(y>=2*x-2*r))
then write('Yes')else write('No');
readln
end.

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

В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с консолью.
Далее объявляются три переменные: x, y и r. Переменная x типа real (число с плавающей точкой), а переменные y и r также типа real.
С помощью функции clrscr() очищается экран консоли.
Затем в цикле repeat-until считывается значение переменной r. По условию r>0 программа продолжает работу, иначе она завершается.
После этого считываются значения переменных x и y с помощью функции readln().
Далее идет проверка на попадание точки с заданными координатами в область. Условия проверки описаны в виде математических выражений. Если точка попадает в эту область, то выводится слово Yes, в противном случае - слово No.
Наконец, с помощью функции readln() считывается следующее значение (если оно есть) и цикл повторяется.
Код завершается, когда значение переменной r становится меньше нуля.