Проверить, что точка с координатами (x,y)принадлежащий R лежит внутри кольца - Pascal

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

решите пожалуйста Даны (x,y)принадлежащий R . Проверить, что точка с координатами (x,y)принадлежащий R лежит внутри кольца с общим центром в точке (-a;c) и радиусами r1,r2 .

Решение задачи: «Проверить, что точка с координатами (x,y)принадлежащий R лежит внутри кольца»

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

uses crt;
var a,c,r1,r2,x,y:real;
begin
clrscr;
writeln('Введите координаты центра кольца:');
readln(a,c);
writeln('Введите радиусы r1<r2:');
readln(r1,r2);
writeln('Введите координаты точки:');
readln(x,y);
if(sqr(x-a)+sqr(y-c)<r2*r2)and (sqr(x-a)+sqr(y-c)>r1*r1)
then write('Точка попадает в кольцо')
else write('Точка не попадает в кольцо');
readln
end.

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

В начале кода подключается библиотека crt, которая используется для работы с консольным вводом-выводом.
Переменные a, c, r1, r2, x и y объявлены как числа с плавающей запятой (real).
С помощью функции clrscr() очищается экран.
Пользователю предлагается ввести координаты центра кольца.
Пользователю предлагается ввести радиусы r1 и r2.
Пользователю предлагается ввести координаты точки.
Вычисляется квадрат разности координат точки и центра кольца.
Проверяется условие: квадрат разности координат точки и центра кольца меньше квадрата радиуса r2 и больше квадрата радиуса r1.
Если условие выполняется, выводится сообщение Точка попадает в кольцо.
Если условие не выполняется, выводится сообщение Точка не попадает в кольцо.
Выводится символ новой строки (readln()).