Нарисовать 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.