var polycount,count{10},x{100},y{100},ballindex,pointcount;

procedure read;
var i,j,k;
begin
  polycount:=in;
  if polycount>10 then
    call die;
  call cvclear;
  i:=0;
  k:=0;
  while i<polycount do
    begin
      count{i}:=in;
      if count{i}<3 then
        call die;
      if count{i}>10 then
        call die;
      j:=0;
      while j<count{i} do
        begin
          while cvx<0 do
            call wait(100);
          x{k}:=cvx;
          y{k}:=cvy;
          call cvball(x{k},y{k},3);
          if j>0 then
            call cvline(x{k-1},y{k-1},x{k},y{k});
          call wait(2000);
          k:=k+1;
          j:=j+1
        end;
      call cvline(x{k-j},y{k-j},x{k-1},y{k-1});
      i:=i+1
    end;
  pointcount:=k;
  call stop
end;

procedure draw;
var i,j,k;
begin
  i:=0;
  k:=0;
  call cvclear;
  while i<polycount do
    begin
      call cvline(x{k},y{k},x{k+count{i}-1},y{k+count{i}-1});
      j:=1;
      k:=k+1;
      while j<count{i} do
        begin
          call cvline(x{k-1},y{k-1},x{k},y{k});
          k:=k+1;
          j:=j+1
        end;
      i:=i+1
    end;
end;

begin
  call read;
  ballindex:=0;
  while 1=1 do
    begin
      call draw;
      call cvball(x{ballindex},y{ballindex},3);
      ballindex:=ballindex+1;
      if ballindex=pointcount then
        ballindex:=0;
      call wait(100);
    end
end.