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

题目描述
观察下面的数字金字塔。
写一个程序来查找从最高点到底部任意处结束的路径，使路径经过数字的和最大。每一步可以走到左下方的点也可以到达右下方的点。
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

说明
其实题目不难，推导方法：
4 5 2 6 5——7 12 9 10——20 13 10——23 19——30
按这个方法做，主要是判断用两个中的一，没什么特别的。

---

var
  i,j,n: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:=n-1 downto 1 do
    for j:=i downto 1 do
      if (f[i+1,j+1]+f[i,j])>(f[i+1,j]+f[i,j]) then f[i,j]:=f[i,j]+f[i+1,j+1]
        else f[i,j]:=f[i,j]+f[i+1,j];
  writeln(f[1,1]);
end.