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