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

program medic;
var
f1,f2:text;
a:array[0..1000]of integer;
x,y,k,t,m:integer;

procedure start;
var
i:integer;
begin
assign(f1,'medic.in');
reset(f1);
assign(f2,'medic.out');
rewrite(f2);
readln(f1,t,m);
fillchar(a,sizeof(a),0);
end;

procedure main;
var
i,j:integer;
begin
for i:=1 to m do
 begin
 read(f1,x,y);
 for j:=t downto x do
  if a[j]<a[j-x]+y then a[j]:=a[j-x]+y;
 end;{for i}
close(f1);
end;{main}

procedure print;
var
i:integer;
begin
k:=0;
for i:=0 to 1000 do if k<a[i] then k:=a[i];
write(f2,k); close(f2);
end;

begin
start;
main;
print;
end.