var
  a : array [1..5,1..5] of longint;
  i,j,min,n : longint;
begin
  for i:=1 to 5 do
    for j:=1 to 5 do
      read(a[i,j]);
    min:=a[1,5-1];
  for i:=1 to 5 do
    if a[i,j]<min then
      min:=a[i,j];
  writeln(min);
end.