{
TASK: green
LANG: PASCAL
}

var
  a1x,a1y,a2x,a2y,a3x,a3y:longint;
  d1,d2,d3:extended;
  s,mins:extended;
  m,i,mini:longint;
  j:longint;
  f:text;
function len(a1x,a1y,a2x,a2y:longint):extended;
var
k:extended;
begin
  k:=(a1x-a2x)*(a1x-a2x)+(a1y-a2y)*(a1y-a2y);
  if k<0 then begin writeln(0);halt(0);   end;
  len:=sqrt(k);
end;

function calcs(d1,d2,d3:extended):extended;
var
   p:extended;
begin
   p:=(d1+d2+d3)/2;
   p:=p*(p-d1)*(p-d2)*(p-d3);
   if p<0 then begin writeln(0);halt(0);end;
   calcs:=sqrt(p);
end;

begin
   mins:=100000000;
   assign(f,'');
   reset(F);
   read(F,m);
   while (m>0) do
   begin
      inc(i);
      read(f,a1x,a1y,a2x,a2y,a3x,a3y);
      d1:=len(a1x,a1y,a2x,a2y);
      d2:=len(a2x,a2y,a3x,a3y);
      d3:=len(a1x,a1y,a3x,a3y);
      s:=calcs(d1,d2,d3);
      for j:=4 to m do
      begin
          a2x:=a3x;a2y:=a3y;
          d1:=d3;
          read(f,a3x,a3y);
          d2:=len(a2x,a2y,a3x,a3y);
          d3:=len(a1x,a1y,a3x,a3y);
          s:=s+calcs(d1,d2,d3);
      end;
      if s<mins then
      begin
          mins:=s;
          mini:=i;
      end;
      read(f,m);
   end;
   close(F);
   writeln(mini);
end.
