С проверкой данных на корректность: 0 < r1 < r2 }
Var x,y,r1,r2:real; begin while true do begin write('x y r1 r2 > '); readln(x,y,r1,r2);
if (r1 <= 0) or (r2 <= r2) then writeln('Ошибка ввóда !') else
if (x*x+y*y <= r1*r1) or (x*x+y*y >= r2*r2) writeln('Не в кольце !') else
writeln('В кольце !') end end.