记录编号	74251	评测结果	AAAAAA
题目名称	[NOIP 2000]方格取数	最终得分	100
用户昵称	gungnir	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2013-10-24 17:27:41	内存使用	0.28 MiB

var
n,i,j,k,l,r:longint;
f:array[-1..11,-1..11,-1..11,-1..11]of longint;
a:array[-1..11,-1..11]of 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,'fgqs.in');reset(input);
assign(output,'fgqs.out');rewrite(output);
readln(n);
fillchar(a,sizeof(a),0);
repeat
readln(l,r,a[l,r]);
until(l=0)and(r=0);


for i:=1 to n do
for j:=1 to n do
for k:=1 to n 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[n,n,n,n]);
close(input);close(output);
end.