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

program dt;
type
shuzu=array[1..100,1..100]of longint;
var
t,b,way:shuzu;
c,i,j,n,max,temp:longint;
f1,f2:text;
l:array[1..100] of longint;
begin
assign(f1,'shuta.in');reset(f1);
assign(f2,'shuta.out');rewrite(f2);
readln(f1,n);
for i:=1 to n do
begin
for j:=1 to i do
begin
read(f1,t[i,j]);
end;
readln(f1);
end;
max:=0; l[1]:=t[1,1];
for i:=1 to n do
for j:=1 to n do
 b[i,j]:=t[i,j];
for i:=n-1 downto 1 do
  for j:=1 to i do begin
     if b[i+1,j]>=b[i+1,j+1] then
     begin
     b[i,j]:=b[i+1,j]+b[i,j];
     way[i,j]:=j;
     end
     else begin
     b[i,j]:=b[i+1,j+1]+b[i,j];
     way[i,j]:=j+1;
    end;
end;
writeln(f2,b[1,1]);
j:=1;
write(f2,t[1,1],' ');
for i:=1 to n-1 do
begin
write(f2,t[i+1,way[i,j]],' ');
 j:=way[i,j];
end;
close(f2);
end.