记录编号	41485	评测结果	AAAAAAAAAAA
题目名称	待售干草	最终得分	100
用户昵称	三木公	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2012-07-23 16:05:21	内存使用	0.20 MiB

var
a,b,c,i,j,k,su,m,n,sum:longint;
s:array[0..10000]of longint;
procedure
ss(a:longint);
begin
su:=su+a;
if (su<m)and(k<=n) then begin inc(k);ss(s[k]);end;
if su=m then begin writeln(m);halt; end;
if su>=m then begin su:=s[i];j:=j+1;k:=j;ss(s[k]);end;
if su>sum then sum:=su;
end;
begin
assign(input,'hay4sale.in');
reset(input);
assign(output,'hay4sale.out');
rewrite(output);
readln(m,n);
for i:=1 to n do
 read(s[i]);
 i:=0;
repeat
inc(i);
k:=i;
j:=i;
ss(s[i]);
su:=0;
until i=n;
writeln(sum);

close(input);
close(output);
end.