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.