记录编号	13855	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]采药	最终得分	100
用户昵称	Hamster	是否通过	通过
代码语言	Pascal	运行时间	0.015 s
提交时间	2009-10-12 13:40:51	内存使用	0.12 MiB

program medic;
var
  a:array[1..1000,1..2] of integer;
  f:array[0..1000] of integer;
  i,j,t,m:integer;
begin
  assign(input,'medic.in');
  reset(input);
  assign(output,'medic.out');
  rewrite(output);

  read(t,m);
   f[0]:=0;
  for i:=1 to m do read(a[i,1],a[i,2]);
  for i:=1 to m do
    for j:=t downto 0 do
      if (j-a[i,1])>=0 then
        if (f[j-a[i,1]]+a[i,2])>f[j] then f[j]:=f[j-a[i,1]]+a[i,2];
  write(f[t]);

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