记录编号	1286	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]采药	最终得分	100
用户昵称	苏轼	是否通过	通过
代码语言	Pascal	运行时间	0.015 s
提交时间	2008-08-30 14:33:36	内存使用	0.11 MiB

program cch(input,output);
var
 c,w:array[1..100] of integer;
 f:array[0..1000] of integer;
 i,t,m,j:integer;

function max(x,y:integer):integer;
begin
 if x>y then max:=x
        else max:=y;
end;

begin
 assign(input,'medic.in');
 assign(output,'medic.out');
 reset(input);
 rewrite(output);
 readln(t,m);
 for i:=1 to m do readln(c[i],w[i]);
 fillchar(f,sizeof (f),0);
 for i:=1 to m do
  for j:=t downto c[i] do
   f[j]:=max(f[j],f[j-c[i]]+w[i]);
 writeln(f[t]);
 close(input);
 close(output);
end.