{
TASK:green
LANG:PASCAL
}
{$s-}
Program Green;
 var v: array[1..10000] of longint;
     p, q: array[1..105] of longint;
     a, b: array[1..105] of real;
     i, j, o, g, n: longint;
     min: real;
     s: array[1..105] of real;
 Function Len(X1, Y1, X2, Y2: Longint): real;
  Begin
   Len := sqrt(sqr(X1 - X2) + sqr(Y1 - Y2));
  End;
 function f(x, y, z: real): real;
  var r, fu: real;
  begin
   r := (x + y + z) / 2;
   fu := sqrt(r * (r-x) * (r-y) * (r-z));
   f := fu;
  end;
 Begin
  Repeat
   Inc(I);
   Read(V[I]);
   For J := 1 to V[I] do Read(P[J], Q[J]);
   For J := 1 to V[I] - 1 do a[J] := Len(p[j], q[j], p[j + 1], q[j + 1]);
   a[V[I]] := len(p[v[i]], q[v[i]], p[1], q[1]);
   for j := 2 to v[i] do b[j - 1] := len(p[1], q[1], p[j], q[j]);
   for j := 1 to v[i] - 2 do s[i] := s[i] + f(b[j], a[j + 1], b[j + 1]);
  Until v[i] = 0;
  readln;
  n := i - 1;
  min := 2147483647; g:=101;
  for i := 1 to n do begin s[i] := s[i] * 1000000; end;
  for i := 1 to n do begin
                      if abs(min - s[i]) < 1 then
                       if v[i] < g then begin o := i; g := v[i]; min := s[i]; end;
                      if s[i] < min then begin
                                          o := i; g := v[i]; min := s[i];
                                         end;
                     end;
  writeln(o);
 End.