Напишите программу, которая рисует концентрические окружности с центром в середине графического окна. радиус самой маленькой окружности - 10 пикселей. разница радиусов - 20 пикселей. используйте изменение интенсивности какого-либо цвета ( или двух одновременно ) для заливки кругов. ​

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.