记录编号	5959	评测结果	AAAAATTTTT
题目名称	取数字问题	最终得分	50
用户昵称	name:弓虽	是否通过	未通过
代码语言	Pascal	运行时间	5.004 s
提交时间	2008-10-29 22:29:22	内存使用	0.12 MiB

program number(input,output);
const
 xx:array[1..2] of integer=(1,0);
 yy:array[1..2] of integer=(0,1);
var
 i,j,m,n,ans,temp:longint;
 a:array[1..100,1..10] of longint;

procedure search(x,y:integer);
var
 i,x1,y1:integer;
begin
 if (x=m)and(y=n) then
  begin
   if (temp>0)and(temp<ans) then ans:=temp;
   exit;
  end;
 for i:=1 to 2 do
  begin
   x1:=x+xx[i]; y1:=y+yy[i];


   if (x1>=1)and(x1<=m)and(y1>=1)and(y1<=n) then
    begin
     temp:=temp+a[x1,y1];
     search(x1,y1);
     temp:=temp-a[x1,y1];
    end;
  end;
end;

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

 ans:=maxint;
 temp:=a[1,1];
 search(1,1);
 if ans=maxint then write(-1)
               else write(ans);
 close(input);
 close(output);
end.