Определить принадлежит ли точка, заданная координатами x,y некоторой области - Pascal

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

Даны действительные числа x,y – координаты точки,R1,R2-соотвественно радиусы большей и меньшей окружностей (см.рис.). центр 2-й окружности – точка с координатами (0,R1). Определить принадлежат ли точка (x,y) области, заштрихованной на рисунке.

Решение задачи: «Определить принадлежит ли точка, заданная координатами x,y некоторой области»

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

ReadLn(x,y);
if  (x>0) and 
       ((sqr(x-R1)+sqr(y))<sqr(R2)) {точка входит во вторую окружность}
          and 
       ((sqr(x)+sqr(y))>sqr(R1)) {точка не входит в первую окружность}
       then WriteLn('Точка принадлежит области')
       else  WriteLn('Точка не принадлежит области');

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

Считывание значений координат точки x и y:
- x: значение x-координаты точки
- y: значение y-координаты точки
Проверка принадлежности точки заданной области:
- Проверка, что x > 0: x-координата точки больше 0
- Проверка входит ли точка во вторую окружность: (sqr(x-R1)+sqr(y)) < sqr(R2), где R1 и R2 - радиусы окружностей
- Проверка не входит ли точка в первую окружность: (sqr(x)+sqr(y)) > sqr(R1)
Вывод результата проверки:
- Если точка принадлежит области, выводится Точка принадлежит области
- Иначе, выводится Точка не принадлежит области