Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным радиусом R c центром с координатами X и Y. N, r, R, X, Y вводятся с клавиатуры. pascal abc

Program Krugi;

Uses Crt, GraphABC;

var i, X, Y, RMax, RMin, N:integer;

begin

clrscr;

write ('Количество окружностей:') ;

readln (N) ;

write ('Введите X:') ;

readln (X) ;

write ('Введите Y:') ;

readln (Y) ;

write ('Введите Максимальный радиус:') ;

readln (RMax) ;

write ('Введите Минимальный радиус:') ;

readln (RMin) ;

SetWindowSize (800,600) ;

for i:=RMax downto RMin do

begin

if n=0 then break;

if (n=1) then circle (X, Y, RMin) else

circle (X, Y, i) ;

i:=i-5;

n:=n-1;

end;

end.