ll@A[4],@P[4],@T;sortA(4,P,A);wt(sum[i,0,4](A[i]<?=T/P[i],T-=A[i]*P[i]));