program bing;
var
 f1,f2:text;
 n,i,j,x,y,z:longint;
 a,b:array[1..80,1..80] of longint;
procedure init;
var
 i,j:longint;
begin
 assign(f1,'shuta.in');reset(f1);
 assign(f2,'shuta.out');rewrite(f2);
 readln(f1,n);
 for i:=1 to n do
  for j:=1 to i do
  read(f1,a[i,j]);
  b:=a;
end;
function max(b,c:longint):longint;
begin
 if c>=b then max:=c
 else max:=b;
end;
procedure f(i,j:integer);
begin
 if i=n then b[i,j]:=a[i,j]
 else begin
  b[i,j]:=max(b[i+1,j],b[i+1,j+1])+a[i,j];
  end;

end;
begin
 init;
 for i:=n downto 1 do
 for j:=1 to n do f(i,j);
 writeln(f2,b[1,1]);
 for i:=1 to n do  begin
  x:=0;y:=0;z:=0;
  for j:=1 to i do
   if b[i,j]>z then begin z:=b[i,j];x:=i;y:=j;end;
   write(f2,a[x,y],' ');
  end;
 close(f1);close(f2);
end.