记录编号	1230	评测结果	ARWREWEEEE
题目名称	[IOI 1994] 数塔	最终得分	10
用户昵称	name:弓虽	是否通过	未通过
代码语言	Pascal	运行时间	0.088 s
提交时间	2008-07-25 11:10:51	内存使用	0.11 MiB

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