var
  a : array [1..4,1..4] of longint;
  b : array [1..4] of longint;
  i,j,max : longint;
begin
  for i:=1 to 4 do
    for j:=1 to 4 do
       read(a[i,j]);
  for j:=1 to 4 do begin
     b[j]:=0;
     for i:=1 to 4 do b[j]:=b[j]+a[i,j];
  end;
  max:=b[1];
  for j:=2 to 4 do
    if b[j]>max then max:=b[j];
  write(max);
end.