记录编号	101526	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]采药	最终得分	100
用户昵称	2014	是否通过	通过
代码语言	Pascal	运行时间	0.006 s
提交时间	2014-05-12 18:03:41	内存使用	0.17 MiB

program ti;
var
  a: array[0..1000] of longint;
  t,m,i,j,x,y : longint;
begin
  assign(input,'medic.in'); reset(input);
  assign(output,'medic.out'); rewrite(output);
  readln(t,m);
  fillchar(a,sizeof(a),0);
  for i := 1 to m do
   begin
    readln(x,y);
    for j := t-x downto 0 do
      if a[j]+y > a[j+x] then a[j+x] := a[j]+y;
   end;
   writeln(a[t]);
  close(input); close(output);
end.