数字三角形（顺推二维版）

题目描述
观察下面的数字金字塔。
写一个程序来查找从最高点到底部任意处结束的路径，使路径经过数字的和最大。每一步可以走到左下方的点也可以到达右下方的点。
7
3 8
8 1 0
2 7 4 4
4 5 2 6 5
在上面的样例中,从7 到 3 到 8 到 7 到 5 的路径产生了最大

输入输出格式
输入格式：
第一个行包含 R(1<= R<=1000) ,表示行的数目。
后面每行为这个数字金字塔特定行包含的整数。
所有的被供应的整数是非负的且不大于100。

输出格式：
单独的一行,包含那个可能得到的最大的和。

输入输出样例
输入样例#1：
5
7
3 8
8 1 0
2 7 4 4
4 5 2 6 5
输出样例#1：
30

说明
这题顺推的推导方式：
7——10 15——18 16 15——20 25 20 19——24 30 27 26 24
f[i,j]表示最大的值。

---

var
  i,j,n,max:longint;
  f:array[0..1000,0..1000]of longint;
begin
  readln(n);
  for i:=1 to n do
    for j:=1 to i do
      read(f[i,j]);
  for i:=2 to n do
  begin
    for j:=i downto 1 do
      if f[i-1,j-1]<f[i-1,j] then f[i,j]:=f[i-1,j]+f[i,j]
        else f[i,j]:=f[i-1,j-1]+f[i,j];
  end;
  for i:=1 to n do
    if f[n,i]>max then max:=f[n,i];
  writeln(max);
end.