uses graph, crt;
var d, m, algx, algy: integer;
nurk, r: real;
begin
  d:=detect;
  initgraph(d, m, '');
  algx:=getmaxx div 2;
  algy:=getmaxy div 2;
  r:=10;
  moveTo(algx+round(r), algy);
  nurk:=0;
  repeat
  nurk:=nurk+0.1;
  r:=r+0.1;
    lineto(algx+round(r*cos(nurk)), algy+round(r*sin(nurk)));
    delay(10);
  until nurk>200;
  readln;
  closegraph;
end.