program szakasz;
uses graph,crt;
const r=0.01;
var gd,gm,x,y,alfa:integer;
begin
  detectgraph(gd,gm);
  initgraph(gd, gm, 'c:\tp70\bgi');
  moveto(320,240);
  repeat
   inc(alfa);
   x:=round(320+r*alfa*cos(alfa/100));
   y:=round(240+r*alfa*sin(alfa/100));
   lineto(x,y);
  until not ((x>0) and (x<640) and (y>0) and (y<480));
  readln;
  closegraph
end.