~~~~~~~~
我们显然傻叉了
这完全背包不用优化就是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.