记录编号	1154	评测结果	AAAAAAAAAA
题目名称	[IOI 1994] 数塔	最终得分	100
用户昵称	王瑞祥K	是否通过	通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-07-25 08:40:37	内存使用	0.00 MiB

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