Напишите программку, которая живописует концентрические окружности с центром в середине

uses GraphABC;

begin

setwindowsize(500,500);

setbrushcolor(clrandom);

circle(250,250,230);

setbrushcolor(clrandom);

circle(250,250,210);

setbrushcolor(clrandom);

circle(250,250,190);

setbrushcolor(clrandom);

circle(250,250,170);

setbrushcolor(clrandom);

circle(250,250,150);

setbrushcolor(clrandom);

circle(250,250,130);

setbrushcolor(clrandom);

circle(250,250,110);

setbrushcolor(clrandom);

circle(250,250,90);

setbrushcolor(clrandom);

circle(250,250,70);

setbrushcolor(clrandom);

circle(250,250,50);

setbrushcolor(clrandom);

circle(250,250,30);

setbrushcolor(clrandom);

circle(250,250,10);

end.