记录编号	2575	评测结果	AAAAAAAAAA
题目名称	[NOIP 2005]采药	最终得分	100
用户昵称	ReimBurSe.	是否通过	通过
代码语言	Pascal	运行时间	0.040 s
提交时间	2008-09-22 21:51:03	内存使用	0.31 MiB

Program medic;

Type
sc=array [1..100] of integer;
sc1=array[0..1000] of integer;

Var
t,m,i,j,temp:integer;
a,b:sc1;
t1,jz:sc;

Begin
assign(input,'medic.in');
assign(output,'medic.out');
reset(input);
rewrite(output);
readln(t,m);
for i:=1 to m do
 readln(t1[i],jz[i]);
for i:=0 to m do begin
 a[i]:=0; b[i]:=0;
end;
for i:=1 to m do begin
 for j:=1 to t do begin
  b[j]:=a[j];
  if t1[i]<=j then begin
   temp:=a[j-t1[i]]+jz[i];
   if temp>b[j] then b[j]:=temp;
  end;
 end;
 a:=b;
end;
write(a[j]);
close(input);
close(output);
End.