记录编号	2563	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]采药	最终得分	100
用户昵称	Oo湼鞶oO	是否通过	通过
代码语言	Pascal	运行时间	0.022 s
提交时间	2008-09-22 21:04:11	内存使用	2.03 MiB

program medic;

var p:array[0..1000]of integer;
    t:array[0..1000]of integer;
    a:array[0..1000,0..1000]of integer;
    zt,m,i,j:integer;
    f:text;

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

begin
 assign(f,'medic.in');
 reset(f);
 readln(f,zt,m);
 for i:=1 to m do
  readln(f,t[i],p[i]);
 close(f);

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

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