开心的金明

题意

在不超过N元（可以等于N元）的前提下，使每件物品的价格与重要度的乘积的总和最大。

var
n,m,i,j,v,p:longint;
f:array[1..30001]of longint;
begin
    readln(n,m);
    for i:=1 to m do 
    begin
        readln(v,p);
        p:=p*v;
        for j:=n downto v do
        if f[j]<f[j-v]+p then f[j]:=f[j-v]+p;
    end;
    writeln(f[n]);
end.