uses graph, crt;
var nurk, raadius,R: real;
d, m, keskx, kesky: integer;
begin
 d:=detect; initgraph(d, m, '');  R:=1;
 nurk:=0; keskx:=300; kesky:=100; raadius:=5;
 MoveTo(300,220);
 repeat
  LineTo(round(keskx+R*raadius*sin(nurk)),
           round(kesky+R*raadius*cos(nurk))+115);
  delay(5);
  R:=R+0.03;
  nurk:=nurk+0.1;
 until keypressed;
 closegraph;
end.