uses graph, crt;
var d, m, keskx, kesky: integer;
nurk, r, kaugus: real;
begin
 randomize;
 d:=detect;
 initgraph(d, m, '');
 keskx:=getmaxx div 2;
 kesky:=getmaxy div 2;
 nurk:=0; r:=5; kaugus:=50;
 setcolor(random(14)+1);
 repeat
    circle(keskx+round(kaugus*sin(nurk)), kesky+round(kaugus*cos(nurk)), round(r));
    nurk:=nurk+0.01; r:=r+0.05; kaugus:=kaugus+0.2;
    delay(1);
 until nurk>=2.6*Pi;
readln;
closegraph;
end.