把全部鼓舞最大的信件挑出来，让他自己按照value一个个看就是了？

还是说不能读value相等的两封信件？

我根本没用v数组，也AC了

program xiang;

var n,m,t,i,j,k:longint;

f:array[0..100,0..100] of longint;

v,time,h,w:array[1..100] of longint;

begin

readln(n,m,t);

for i:=1 to n do

readln(v[i],time[i],h[i],w[i]);

m:=m-1;

for i:=1 to n do

for j:=m downto h[i] do

for k:=t downto time[i] do

if f[j][k]<f[j-h[i]][k-time[i]]+w[i] then f[j][k]:=f[j-h[i]][k-time[i]]+w[i];

writeln(f[m][t]);

readln;

end.

value只适用于看信时排序用，答案根本就用不上，是干扰条件