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