Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным…

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.