ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:Цикл со счётчиком
Нарисовать N концентрических окружностей. N вводится с клавиатуры.

uses graphabc;procedure vvod(var n: integer);//процедура ввода переменнойbegin  writeln('Введите число n:');//запрос на ввод n  read(n);//считывание переменнойend;procedure circle(n: integer);//процедура рисования концентрических круговvar  i,r: integer;begin  r:=10;//присваивание значения отступа  for i:=1 to n do  begin    drawcircle(200,200,r);//рисование круга    r:=r+10;//изменение отступа  end;end;var  n: integer;begin  vvod(n);//ввод переменной  Circle(n);//рисование концентрических круговend.

этот номер тебе тоже отправить?