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

program medic(f1,f2);
var
  t,m,i,j,a,b:integer;
  w:array[0..1000] of integer;
  f1,f2:text;
begin
  assign(f1,'medic.in');
  assign(f2,'medic.out');
  reset(f1); rewrite(f2);
  readln(f1,t,m);
  for i:=1 to m do w[i]:=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.