{
TASK:green
LANG:PASCAL
}


{$N+}
Var
 M, MM, B : Byte;
 N, NM : LongInt;
 S, SM,
 X1, Y1,
 X2, Y2,
 X3, Y3,
 XX1, YY1,
 XX2, YY2 : Extended;

Function Calc(X1, Y1, X2, Y2, X3, Y3 : Extended) : Extended;
Begin
  XX1 := X1;
  If X2 < XX1 then XX1 := X2;
  If X3 < XX1 then XX1 := X3;

  XX2 := X1;
  If X2 > XX2 then XX2 := X2;
  If X3 > XX2 then XX2 := X3;

  YY1 := Y1;
  If Y2 < YY1 then YY1 := Y2;
  If Y3 < YY1 then YY1 := Y3;

  YY2 := Y1;
  If Y2 > YY2 then YY2 := Y2;
  If Y3 > YY2 then YY2 := Y3;

  Calc := Abs((XX1 - XX2) * (YY1 - YY2)) - (
     Abs( (X1 - X2) * (Y1 - Y2)  ) +
     Abs( (X1 - X3) * (Y1 - Y3)  ) +
     Abs( (X2 - X3) * (Y2 - Y3)  ) ) / 2;
end;

Begin
 {SM := 1.1e4932;}
 SM := 1.1e4932;
 Repeat
  Inc(N); Read(M); If M = 0 then Break; Read(X1, Y1, X2, Y2);

  {x1y1 x2y1 x2y3 x1y3 = x12 * y13;
   x1y1 x2y2 x2y1 = x12*y12/2
   x1y1 x3y3 x1y3 = x13*y13/2
   x2y2 x3y3 x2y3 = x23*y23/2}

  S := 0;
  For B := 1 to M - 2 do
  Begin
   Read(X3, Y3);
   S := S + Calc(X1, Y1, X2, Y2, X3, Y3);
  end;

  ReadLn;
  {WriteLn('!', N, ' ', S : 0 : 10);}

  If (S < SM) or ((S = SM) and (M < MM)) then
  Begin
   SM := S;
   MM := M;
   NM := N;
  end;
 Until False;

 WriteLn(NM);
end.