记录编号	74254	评测结果	AAAAAAAAAA
题目名称	[NOIP 2008]传纸条	最终得分	100
用户昵称	gungnir	是否通过	通过
代码语言	Pascal	运行时间	0.681 s
提交时间	2013-10-24 17:37:41	内存使用	30.28 MiB

var
a:array[-1..51,-1..51]of longint;
f:array[-1..51,-1..51,-1..51,-1..51]of longint;
i,j,k,l,m,n:longint;


function max(a,b,c,d:longint):longint;
var temp:longint;
begin
temp:=a;
if b>temp then temp:=b;
if c>temp then temp:=c;
if d>temp then temp:=d;
max:=temp;
end;

begin
assign(input,'message.in');reset(input);
assign(output,'message.out');rewrite(output);
readln(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
fillchar(f,sizeof(f),0);

for i:=1 to m do
for j:=1 to n do
for k:=1 to m do
for l:=1 to n do
begin
f[i,j,k,l]:=max(f[i-1,j,k-1,l],f[i-1,j,k,l-1],
                f[i,j-1,k-1,l],f[i,j-1,k,l-1]);
f[i,j,k,l]:=f[i,j,k,l]+a[i,j];
if(i<>k)or(j<>l)then f[i,j,k,l]:=f[i,j,k,l]+a[k,l];
end;


writeln(f[m,n,m,n]);
close(input);close(output);
end.