然而并不懂pascallllllll...

var

q,p,fu:array[1..100] of integer;

w,c:array[1..100,0..3] of longint;

f:array[0..35000] of longint;

i,j,k,n,m:integer;

max:longint;

begin

read(n,m);

fillchar(fu,sizeof(fu),0);

for i:=1 to m do begin read(w,p[i],q[i]); c:=w*p[i]; end;

for i:=1 to m do

begin

if q[i]>0 then begin inc(fu[q[i]]);

w[q[i],fu[q[i]]]:=w[q[i],0]+w; c[q[i],fu[q[i]]]:=c[q[i],0]+c; end;

if fu[q[i]]=2 then

begin

inc(fu[q[i]]);

w[q[i],fu[q[i]]]:=w[q[i],1]+w; c[q[i],fu[q[i]]]:=c[q[i],1]+c;

end;

end;

f[0]:=0;

for i:=1 to m do

if q[i]=0 then

for j:=n downto w do

begin

max:=f[j];

for k:=0 to fu[i] do

if (j>=w) and (f[j-w]+c>max) then max:=f[j-w]+c;

f[j]:=max;

end;

write(f[n]);

end.{main}