记录编号	109683	评测结果	AAAAAAAAA
题目名称	[USACO 1.5] 数字金字塔	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.063 s
提交时间	2014-07-09 10:43:06	内存使用	3.98 MiB

var
a,b,r:longint;
z:array[1..1000,1..1000]of longint;
begin
assign(input,'numtri.in');
assign(output,'numtri.out');
reset(input);
rewrite(output);
read(r);
for a:=1 to r do
for b:=1 to a do
read(z[a,b]);

for a:=r-1 downto 1 do
for b:=1 to a do
if z[a+1,b]>z[a+1,b+1] then z[a,b]:=z[a,b]+z[a+1,b]
                       else z[a,b]:=z[a,b]+z[a+1,b+1];
writeln(z[1,1]);
close(input);close(output);
end.