Выяснить принадлежит ли точка x, y кольцу с внешним радиусом r1 и внутренним радиусом r2. (Pascal ABC) и построить блок схему

Program a;

var r1, r2, x, y: integer;

begin

writeln ('Введи r1 и r2') ;

readln (r1, r2) ;

writeln ('Введи x и y') ;

readln (x, y) ;

if ((x*x + y*y > = r2*r2) and (x*x + y*y < = r1*r1)) then

writeln ('Принадлежит')

else writeln ('Не принадлежит') ;

end.