program tz;
const maxline=100;
var i,j,t,line,k,c,x,y:longint;f1,f2:text;p,ch:char;
    a,b:array[1..maxline,1..maxline] of longint;

begin
  assign(f1,'shuta.in');
  assign(f2,'shuta.out');
  reset(f1);rewrite(f2);
  readln(f1,line);
  for i:=1 to line do
  begin
  for j:=1 to i do
  read(f1,a[i,j]);
  end;

  for k:=line downto 1 do
    b[line,k]:=a[line,k];
  for i:=line downto 1 do
  begin
    for j:=1 to line do
      begin
      if b[i,j]>b[i,j+1] then b[i-1,j]:=b[i,j]+a[i-1,j]
                          else b[i-1,j]:=b[i,j+1]+a[i-1,j];
       end;
   end;
  writeln(f2,b[1,1]);
  for i:=1 to line do
  begin
  c:=0;x:=0;y:=0;
    for j:=1 to i do
      begin
        if b[i,j]>c then begin c:=b[i,j];x:=i;y:=j; end;
      end;
  write(f2,a[x,y],' ');
  end;
  close(f1);
  close(f2);
end.