记录编号	6299	评测结果	AAAAAAAAAA
题目名称	取数字问题	最终得分	100
用户昵称	francis	是否通过	通过
代码语言	Pascal	运行时间	0.024 s
提交时间	2008-10-31 20:28:27	内存使用	0.41 MiB

program number;
const
fin='number.in';
fou='number.out';
var
f:array[1..20,1..20,-390..390]of boolean;
a:array[1..20,1..20]of longint;
k,n,m,i,j:longint;
f1,f2:text;

procedure init;
begin
assign(f1,fin);
assign(f2,fou);
reset(f1);
rewrite(f2);
read(f1,n,m);
for i:=1 to n do
for j:=1 to m do
read(f1,a[i,j]);
f[1,1,a[1,1]]:=true;
end;

procedure main;
begin
for i:=1 to n do
for j:=1 to m do
for k:=-390 to 390 do
begin
  if (i-1>0)and(f[i-1,j,k]=true) then f[i,j,k+a[i,j]]:=true;
  if (j-1>0)and(f[i,j-1,k]=true) then f[i,j,k+a[i,j]]:=true;
end;
end;

procedure print;
begin
for i:=1 to 390 do
if f[n,m,i]=true then
begin
 write(f2,i);
 close(f1); close(f2);
 halt;
end;
end;

begin
init;
main;
print;
write(f2,-1);
close(f1); close(f2);
end.