最大连续数列的和

Description
　求最大连续子序列的和

Input
　第一行输入n(n<=500),第二行为n个以空格分开的整数(-1000到1000之间)；

Output
该序列中最大的连续子序列的和

Sample Input
6
1 2 -5 6 7 8

Sample Output
21

var  i,n,m,k,g:longint;begin  readln(n);  read(g);  for i:=2 to n do  begin    read(k);    if g>0 then inc(k,g);    if k>m then m:=k;    g:=k;  end;  writeln(m);end.