~~~~~~~~
我们显然傻叉了
这完全背包不用优化就是O(VN)的啊
像这样就过了囧……
var f,p,t:array[0..10000] of longint;
m,n,i,j:longint;
begin
readln(m,n);
for i:=1 to n do readln(p[i],t[i]);
for i:=1 to n do
for j:=t[i] to m do
if f[j-t[i]]+p[i]>f[j] then f[j]:=f[j-t[i]]+p[i];
writeln(f[m]);
end.