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

procedure read;
var i,j,k;
begin
  polycount:=in;
  if polycount>10 then
    call die;
  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
          x{k}:=in;
          y{k}:=in;
          k:=k+1;
          j:=j+1
        end;
      i:=i+1
    end;
  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;
  call draw
end.