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