记录编号	12577	评测结果	AAAAAATTTT
题目名称	[IOI 1994] 数塔	最终得分	60
用户昵称	bly1991	是否通过	未通过
代码语言	Pascal	运行时间	4.366 s
提交时间	2009-09-14 21:24:14	内存使用	0.13 MiB

program bly(input,output);
type
  t1=array[1..100] of integer;
var
  data:array[1..100,1..100] of integer;
  f,maxroot:t1;
  max,n:integer;
  i,j:integer;
  f1,f2:text;

  procedure dg(deep,root,m:integer;g:t1);
  var
    i0:integer;
    z:t1;
  begin
    z:=g;
    if deep=n+1 then begin
      if m>max then begin
        max:=m;
        maxroot:=g;
      end;
    end
    else begin
      for i0:=root to root+1 do begin
        if i0<=deep then begin
          g[deep]:=data[deep,i0];
          dg(deep+1,i0,m+data[deep,i0],g);
          g:=z;
        end;
      end;
    end;
  end;

begin
  assign(f1,'shuta.in');
  reset(f1);
  readln(f1,n);
  for i:=1 to n do begin
    for j:=1 to i do begin
      read(f1,data[i,j]);
    end;
    readln(f1);
  end;

  dg(1,1,0,f);

  assign(f2,'shuta.out');
  rewrite(f2);
  writeln(f2,max);
  for i:=1 to n do write(f2,maxroot[i],' ');
  close(f2);
end.