记录编号	112558	评测结果	AAAAAAAAAAAA
题目名称	[USACO]总分	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.434 s
提交时间	2014-07-16 15:21:15	内存使用	0.20 MiB

var
a,b,n,m,t,z:longint;
f:array[0..10000]of longint;
begin
assign(input,'inflate.in');assign(output,'inflate.out');
reset(input);rewrite(output);
read(m,n);
for a:=1 to n do
begin
read(z,t);
for b:=0 to m-t do
if f[b]+z>f[b+t] then f[b+t]:=f[b]+z;
end;
writeln(f[m]);
close(input);close(output);
end.