记录编号	15044	评测结果	ATWTTTTTTT
题目名称	[BYVoid S3] 艾萨拉的激流	最终得分	10
用户昵称	Hamster	是否通过	未通过
代码语言	Pascal	运行时间	16.014 s
提交时间	2009-11-09 16:44:16	内存使用	0.11 MiB

program azshara;
var
  i,j,m,n,max:integer;
  a:array[1..5,1..5] of integer;
  f:array[1..5,1..5] of integer;

begin
  assign(input,'azshara.in');
  assign(output,'azshara.out');
  reset(input);
  rewrite(output);

  read(n,m);
  for i:=1 to m do
    for j:=1 to n do
	begin
	  read(a[i,j]);
	  f[i,j]:=0;
	end;
  for i:=1 to n do f[1,i]:=a[1,i];
  for i:=2 to m do
    for j:=1 to n do
	begin
	  if a[i,j]<>-1 then
	  if (j-1>=1) and (j+1<=n) then
	  begin
	    if f[i-1,j+1]>=f[i-1,j] then
		  if f[i-1,j+1]>=f[i-1,j-1] then f[i,j]:=f[i-1,j+1]+a[i,j]
		  else
		  f[i,j]:=f[i-1,j-1]+a[i,j]
		else
		  if f[i-1,j]>=f[i-1,j-1] then f[i,j]:=f[i-1,j]+a[i,j]
		  else
		  f[i,j]:=f[i-1,j-1]+a[i,j]
	  end
	  else
	  if j-1>=1 then
         if f[i-1,j-1]>=f[i-1,j] then f[i,j]:=f[i-1,j-1]+a[i,j]
         else
		 f[i,j]:=f[i-1,j]+a[i,j]
	  else
         if f[i-1,j]>=f[i-1,j+1] then f[i,j]:=f[i-1,j]+a[i,j]
		 else
		 f[i,j]:=f[i-1,j+1]+a[i,j];
    end;
  max:=0;
  for i:=1 to n do 
    if f[m,i]>=max then max:=f[m,i];
  write(max);	

		
  
  close(input);
  close(output);
end.