uses graph;
var d, m, keskx, kesky: integer;
nurk, r, kaugus: real;
begin
 d:=detect;
 initgraph(d, m, '');
 keskx:=getmaxx div 2;
 kesky:=getmaxy div 2;
 nurk:=0; r:=5; kaugus:=100;
 repeat
    circle(keskx+round(kaugus*sin(nurk)), kesky+round(kaugus*cos(nurk)), round(r));
    nurk:=nurk+0.05; r:=r+0.1;
 until nurk>=2*Pi;
readln;
closegraph;
end.