program shuta(f1,f2);
var
  a:array[1..81,1..81,1..3] of longint;
  i,j,n:integer;
  f1,f2:text;
begin
  assign(f1,'shuta.in'); assign(f2,'shuta.out');
  reset(f1);  rewrite(f2);
  readln(f1,n);
  for i:=1 to n do begin
    for j:=1 to i do begin
      read(f1,a[i,j,1]);
      a[i,j,2]:=a[i,j,1];
      a[i,j,3]:=0;
    end;
  end;
  for i:=n-1 downto 1 do begin
    for j:=i downto 1 do begin
      if a[i+1,j+1,2]>a[i+1,j,2]
        then  a[i,j,2]:=a[i,j,2]+a[i+1,j+1,2]
        else begin
          a[i,j,2]:=a[i,j,2]+a[i+1,j,2];
          a[i,j,3]:=1;
        end;
    end;
  end;
  j:=1;
  writeln (f2,a[1,1,2]);
  write(f2,a[1,1,1],' ');
  for i:=2 to n do begin
    j:=j+a[i,j,3];
    write(f2,a[i,j,1],' ');
  end;
  close(f1); close(f2);
end.