Определить попадает ли точка в заштрихованную область (окружность) - Pascal ABC

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

Добрый день! помогите пожалуйста, никак не могу сообразить как показать что точку ищем в окружности

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

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

var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if((x<=0)and(y>=0)and(x*x+y*y<=1))
or((x>=0)and(y<=0) and(x*x+y*y<=2))
then write('Точка принадлежит заштрихованной области')
else write('Точка не принадлежит заштрихованной области')
end.

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

Создаются две переменные типа real под названием x и y, которые будут использоваться для хранения координат точки.
Выводится сообщение «Введите координаты точки», чтобы пользователь мог ввести значения для x и y.
С помощью функции readln() считываются значения, введенные пользователем для x и y.
Вычисляется площадь круга с помощью формулы (xx+yy)<=1 или (xx+yy)<=2 в зависимости от того, где находится точка.
Если площадь круга меньше или равна 1, то выводится сообщение «Точка принадлежит заштрихованной области».
Если площадь круга больше 1, то выводится сообщение «Точка не принадлежит заштрихованной области».
Код завершается.