记录编号	750	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]采药	最终得分	100
用户昵称	书剑飘零	是否通过	通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-07-22 08:27:27	内存使用	0.00 MiB

program p1104; 
var t,m,i,j,a,b:integer; 
w:array[0..1000] of integer; 
f1,f2:text;
begin 
assign(f1,'medic.in');reset(f1);
assign(f2,'medic.out');rewrite(f2);
readln(f1,t,m); 
fillchar(w,sizeof(w),0); 
for i:=1 to m do begin 
readln(f1,a,b); 
for j:=t-a downto 0 do if (w[j]+b)>w[j+a] then w[j+a]:=w[j]+b; 
end; 
writeln(f2,w[t]);
close(f1);close(f2); 
end.