记录编号	1156	评测结果	AAAAAAAAAA
题目名称	[IOI 1994] 数塔	最终得分	100
用户昵称	chengyang	是否通过	通过
代码语言	Pascal	运行时间	0.005 s
提交时间	2008-07-25 09:01:17	内存使用	0.27 MiB

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  begin
          a[i,j,2]:=a[i,j,2]+a[i+1,j+1,2];
          a[i,j,3]:=1;
        end
        else  a[i,j,2]:=a[i,j,2]+a[i+1,j,2];
    end;
  end;
  j:=1;
  writeln (f2,a[1,1,2]);
  for i:=1 to n do begin
    write(f2,a[i,j,1],' ');
    j:=j+a[i,j,3];
  end;
  close(f1); close(f2);
end.