NKCABLE - Nối mạng
Tác giả: flashmt
Ngôn ngữ: Pascal
var n,i:integer;
a:array[0..25000] of longint;
t:longint;
begin
readln(n);
readln(a[0]); a[1]:=a[0];
for i:=2 to n-1 do
begin
readln(t);
if a[i-1]>a[i-2] then a[i]:=a[i-2]+t
else a[i]:=a[i-1]+t;
end;
write(a[n-1]);
end.