记录编号	8161	评测结果	AAAAAAAAAA
题目名称	[BYVoid S3] 艾萨拉的激流	最终得分	100
用户昵称	bing	是否通过	通过
代码语言	Pascal	运行时间	5.956 s
提交时间	2008-11-13 11:39:47	内存使用	76.41 MiB

program bing;
var
 f1,f2:text;
 l,w,i:integer;
 max:longint;
 a,f:array[1..10000,1..1000] of longint;
procedure init;
var
 i,j:longint;
begin
 assign(f1,'azshara.in');reset(f1);
 assign(f2,'azshara.out');rewrite(f2);
 readln(f1,w,l);
 for i:=1 to l do
 for j:=1 to w do
 read(f1,a[i,j]);
 fillchar(f,sizeof(f),0);
 for i:=1 to w do
  f[1,i]:=a[1,i];
end;
procedure nb;
var
 i,j,k:integer;
begin
 for i:=2 to l do
 begin
  for j:=1 to w do
  begin
  if a[i,j]>-1 then
   begin
    for k:=-1 to 1 do
    if (j+k>=1)and(j+k<=w)and(f[i-1,j+k]>-1) then
    if f[i-1,j+k]+a[i,j]>f[i,j] then f[i,j]:=f[i-1,j+k]+a[i,j];
   end
  else f[i,j]:=a[i,j];
  end;
 end;
end;
begin
 init;
 nb;
 for i:=1 to w do
 if f[l,i]>max then max:=f[l,i];
 write(f2,max);
 close(f1);close(f2);
end.