记录编号	41345	评测结果	AAAAAAAAAAA
题目名称	待售干草	最终得分	100
用户昵称	彬	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2012-07-22 11:43:16	内存使用	0.20 MiB

var
a:array[0..10000]of longint;
c,h,p,max:longint;
procedure move(m,i:longint);
var
j,k:longint;
begin
k:=m;j:=i;
if (k+a[i]<=c)and(j<=h) then
begin
move(k+a[i],j+1);
move(k,j+1);
end
else
if (j+1<=h) then move(k,i+1);
if k=c then begin
max:=k;
writeln(max);
halt;
end;
if k>max then max:=k;
end;
begin
assign(input,'hay4sale.in');
assign(output,'hay4sale.out');
reset(input);
rewrite(output);
read(c,h);
for p:=1 to h do
read(a[p]);
move(0,1);
writeln(max);
close(input);
close(output);
end.