procedure MultiplePack(cost,weight,amount:longint);

 var

 k:longint;

 begin

 if cost*amount>=w then

 begin

 CompletePack(cost,weight);

 exit;

 end;

 k:=1;

 while k<amount do begin

 ZeroOnePack(k*cost,k*weight);

 amount:=amount-k;

 k:=k*2;

 end;

 ZeroOnePack(amount*cost,amount*weight);

 end;

begin

 for i:=1 to n do

 begin

 readln(weight[i],cost[i],m[i]);

 MultiplePack(cost[i],weight[i],m[i]);

 end;

end.