记录编号	100075	评测结果	AAAAAAAAAA
题目名称	[IOI 1994] 数塔	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.008 s
提交时间	2014-05-02 22:29:27	内存使用	2.14 MiB

var
b,c,d,n:longint;
a:array[1..80,1..80]of longint;
lu:array[1..80,1..80,1..80]of longint;
begin
assign(input,'shuta.in');assign(output,'shuta.out');
reset(input);rewrite(output);

read(n);
for b:=1 to n do
for c:=1 to n do
if c<=b then read(a[b,c]);

for b:=1 to n do
lu[n,b,n]:=a[n,b];

for b:=n-1 downto 1 do
for c:=1 to n do
if a[b+1,c]>a[b+1,c+1] then
begin
for d:=b+1 to n do
lu[b,c,d]:=lu[b+1,c,d];
lu[b,c,b]:=a[b,c];
a[b,c]:=a[b,c]+a[b+1,c];
end
else begin
for d:=b+1 to n do
lu[b,c,d]:=lu[b+1,c+1,d];
lu[b,c,b]:=a[b,c];
a[b,c]:=a[b,c]+a[b+1,c+1];
end;

writeln(a[1,1]);
for b:=1 to n do
write(lu[1,1,b],' ');

close(input);close(output);end.