uses graph;
var d, m: integer;
    x: real;
begin
 d:=Vga; m:=VgaMed;
 initgraph(d, m, '');
 x:=0;
 repeat
  circle(round(100*x), 200-round(80*sin(x)), 20);
  x:=x+0.01;
 until x>2*Pi;
 readln;
 closegraph;
end.