{
TASK:green
LANG:PASCAL
}
program greens;
label 1,2;
var max1,i,j,k,l,e:integer;
    w,q:string;
    a:array [1..100,1..202]of shortint;
    b:array [1..50,1..101]of real;
    x1,x2,y1,y2,max:real;
begin

repeat
k:=1;
i:=i+1;
readln(w);
q:=w;
for j:=1 to length(w) do
if w[j]=' ' then begin
val(copy(w,1,j-1),a[i,1],e);
delete(w,1,j);

goto 1;
end;
1:
for j:=1 to a[i,1]*2 do begin
for l:=1 to length(w) do
if w[l]=' ' then begin
k:=k+1;
val(copy(w,1,l-1),a[i,k],e);
delete(w,1,l);
goto 2;
end;

2:
end;
val(w,a[i,k+1],e);
until q='0';
i:=i-1;
for j:=1 to i do begin
a[j,a[j,1]*2+2]:=a[j,2];
a[j,a[j,1]*2+3]:=a[j,3];
end;
for j:=1 to i do begin
for k:=1 to a[j,1] do begin
x1:=sqr(a[j,2*k+1]-a[j,2*k+3]);
y1:=sqr(a[j,2*k]-a[j,2*k+2]);
x2:=x1+y1;
b[j,k]:=sqrt(x2);
end;
end;

for j:=1 to i do
b[j,101]:=1;
for j:=1 to i do begin
for k:=1 to a[j,1] do begin
b[j,101]:=b[j,k]*b[j,101];
end;
end;
for j:=1 to i do
b[j,101]:=b[j,101]/a[i,1];



max:=b[1,101];
max1:=1;
for j:=2 to i do begin
if b[j,101]>max then begin
max:=b[j,101];
max1:=j;
end;
end;
writeln(max1);








end.