var
  a : array [1..100,1..100] of longint;
  i,j,max,nom,n : longint;
begin
  for i:=1 to 5 do
  for j:=1 to 4 do
    read(a[i,j]);
  for i:=1 to 5 do 
    if a[i,j]>max then begin
      max:=a[i,j]; 
      nom:=i;
    end;
  writeln(nom);
end.