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

Решение. Введем следующие обозначения: 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.