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

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

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

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

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

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

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

var r,x,y:real; - объявление переменных r, x и y типа real
write('R='); - вывод строки R= для привлечения внимания пользователя
readln(r); - чтение значения переменной r с консоли
writeln('Введите координаты точки'); - вывод строки Введите координаты точки для привлечения внимания пользователя
readln(x,y); - чтение значений переменных x и y с консоли
if (xx+yy<=r*r) and (abs(y)>=abs(x)) then - проверка условия: если сумма квадратов x и y меньше, чем квадрат r, и абсолютное значение y больше или равно абсолютному значению x
1. write('Точка попадает в область') - вывод строки Точка попадает в область, если условие выполняется
else
1. write('Точка не попадает в область') - вывод строки Точка не попадает в область, если условие не выполняется