记录编号	5059	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]采药	最终得分	100
用户昵称	苏轼	是否通过	通过
代码语言	Pascal	运行时间	0.054 s
提交时间	2008-10-24 19:16:08	内存使用	2.06 MiB

program medic;

var a:array[0..1000,0..1000]of word;
    t,p:array[1..10000]of word;
    time,m,i,j:word;
    f1:text;

function max(a,b:word):word;
 begin
  if a>b then
   max:=a else max:=b;
 end;

begin
 assign(f1,'medic.in');
 reset(f1);

 readln(f1,time,m);
 for i:=1 to m do
  readln(f1,t[i],p[i]);

 close(f1);

 for i:=1 to time do
  for j:=1 to m do
   if t[j]<=i then
    a[i,j]:=max(a[i,j-1],a[i-t[j],j-1]+p[j]) else
     a[i,j]:=a[i,j-1];

 assign(f1,'medic.out');
 rewrite(f1);
 writeln(f1,a[time,m]);
 close(f1);
end.