下面是我编写的2006年开心的金明的程序（用的01背包动态规划），请大家帮我看看程序有什么问题，测试数据有些对，有些错，我不知道那里出了问题，在此先谢谢大家了！
program jm;
var i,j,m,n:integer;
k:array[0..25,0..3000] of integer;
v:array[1..25]of integer;
w:array[1..25]of integer;
begin
assign(input,'happy.in');
assign(output,'happy.out');
reset(input);
rewrite(output);
read(n,m);
for i:=0 to m do
k[i,0]:=0;
for i:=0 to n do
k[0,i]:=0;
for i:=1 to m do
read(v,w);
for i:=1 to m do
begin
for j:=1 to v-1 do
k[i,j]:=k[i-1,j];
for j:=v to n do
if (k[i-1,j-v]+v*w>k[i-1,j])
then k[i,j]:= k[i-1,j-v]+v*w
else k[i,j]:= k[i-1,j];
end;
writeln(k[m,n]);
close(input);
close(output);
end.
