---

var
  a:array[1..200,1..200]of longint;
  i,j,b,c,n:longint;
function max(b,c:longint):longint;
  begin
    if b<=c
       then max:=b
       else max:=c;
  end;
begin
  n:=0;
  while not eof do begin
    fillchar(a,sizeof(a),0);
    inc(n);
    readln(b,c);
    for i:=1to b do begin
      for j:=1to c do begin
        read(a[j,i]);
      end;
    end;
    for i:=1to b do begin
      for j:=1to c do begin
        if (i<>1)and(j<>1)then begin
           a[j,i]:=max(a[j-1,i],a[j,i-1])+a[j,i];
        end;
        if (i<>1)and(j=1)then begin
           a[j,i]:=a[j,i-1]+a[j,i];
        end;
        if (i=1)and(j<>1)then begin
           a[j,i]:=a[j-1,i]+a[j,i];
        end;
      end;
    end;
    writeln('Case #',n,' :');
    writeln(a[c,b]);
  end;
end.
标准DP，但他说多了个CASE #31：和CASE #901：.............=  =# 

---

经测验，出题的那个人（对他无语），在出测资时，最后多打了个回车...然后你就输出了个CASE了...

 

---

好吧，我錯了... 真不知道為什麼如此  還是有人會通過 (我看不懂PASCAL.)