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

Решение. Введем последующие обозначения: N количество окружностей;  X, Y координаты центра окружностей; max наибольший радиус;  min малый радиус; i параметр, который будет принимать значения радиусов от  max до min. Тогда программка на языке программирования Pascal ABC может смотреться так:

Program zadacha;

Uses crt, graphABC;

var i,X,Y,max,min,N:integer;

begin

 clrscr;

 write(Vvedite kolichestvo okrugnostej N:);

 readln(N);

 write(Vedite koordinatu X:);

 readln(X);

 write(Vedite koordinatu Y:);

 readln(Y);

 write(Vedite radius max:);

 readln(max);

 write(Vedite radius min:);

 readln(min);

 SetWindowSize(800,600);

 for i:=max downto min do

   begin

       if n=0 then break;

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

           circle(X,Y,i);

           i:=i-5;

          n:=n-1;

       end;

end.