记录编号	133734	评测结果	AAAAAAAAAA
题目名称	[HNOI 2004] 打砖块	最终得分	100
用户昵称	传奇	是否通过	通过
代码语言	Pascal	运行时间	0.622 s
提交时间	2014-10-28 19:59:58	内存使用	5.84 MiB

program cojs1292;
var
  f:array[-1..52,-1..52,-1..505] of longint;
  a:array[0..100,0..100] of longint;
  ans,i,j,k,v,m,n:longint;
begin
  assign(input,'brike.in');
  assign(output,'brike.out');
  reset(input);
  rewrite(output);

  readln(n,m);
  ans:=0;
  for i:=1 to n do
    for j:=1 to n-i+1 do
      read(a[i,j]);
  fillchar(f,sizeof(f),177);
  for i:=1 to n do
    f[i,1,1]:=a[1,i];
  for i:=n downto 1 do
    for j:=0 to n-i+1 do
      for k:=j+1 to m do
        begin
          for v:=j-1 to n-i do
            if f[i+1,v,k-j]>f[i,j,k] then
              f[i,j,k]:=f[i+1,v,k-j];
          for v:=1 to j do
            f[i,j,k]:=f[i,j,k]+a[v,i];
          if f[i,j,k]>ans then
            ans:=f[i,j,k];
        end;
  writeln(ans);


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