Написать программу, определяющую, принадлежит ли точка с координатами (x,y) кольцу с центром (x0,y0). R1 и r2 соответственно радиусы внутренней и внешней окружностей, образующих кольцо.

Var  x,y,r1,r2:real;
begin
write(Введите x, y, внутренний радиус, внешний радиус: );
readln(x,y,r1,r2);
if (x*x+y*y=r1*r1) then
  writeln(Да, принадлежит)
  else writeln(Нет, не принадлежит);
end.