1. 贪心的武松
【问题描述】
曾经因打虎而闻名的武松在x年后接到了景阳岗动物园的求助信，信上说：最近我们动物园逃跑了几只老虎，请您把它们抓回来，谢谢!!
武松接到信之后立刻上了山。正当他到半山腰时，突然跳出n只猛虎来。每只老虎都有一块虎牌，牌上写的是每一只虎最大拥有的体力，当武松与老虎pk时，若老虎的体力先用完，那么老虎over,否则武松over,求武松在over之前最多能干掉几只老虎？
（注：老虎是一只只上的）
【输入】
第一行两个数字 n（老虎的只数）,m（武松的体力）。第二行n个数字,分别表示每只老虎的体力（每只虎的体力按从小到大排列）。
【输出】
一行，最多能干掉的老虎数。
【样例输入】
3 6
1 3 9
【样例输出】
2
请完善以下程序
program test05；
var
n,m,i,num:integer;
a:array[1..100] of integer;
begin
fillchar(a,sizeof(a),0);
read(n,m);
for i:=1 to n do
read( a[i] );
num:=0; i:=1;
while (m>0) and ( i<=n ) do
begin
m:=m-a[i];
if m>=0 then begin
num:=num+1;
inc(i) ;
end;
end;
write( num );
end.
2. 合并礼物
【问题描述】
圣诞节快到了，圣诞老人又要开始忙起来了，和往年一样，圣诞老人要在礼物乐园里挑选礼物送给小朋友们。
在礼物乐园，圣诞老人挑选好礼物后，把礼物按照不同的种类分成了不同的堆，现在，圣诞老人决定把所有的礼物合成一堆。
每一次合并，圣诞老人可以把两堆礼物合并到一起，消耗的体力等于两堆礼物的重量之和。可以看出，所有的礼物经过n-1次合并之后，就只剩下一堆了。圣诞老人在合并礼物时总共消耗的体力等于每次合并所耗体力之和。
因为还要花大力气把这些礼物搬到他的鹿车，所以圣诞老人在合并礼物时要尽可能地节省体力。假定每个礼物重量都为1，并且已知礼物的种类和每种礼物的数目，你的任务是设计出合并的次序方案，使圣诞老人耗费的体力最小，并输出这个最小的体力耗费值。
例如有3种礼物，数目依次为1，2，9。可以先将 1、2堆合并，新堆数目为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，数目为12，耗费体力为 12。所以圣诞老人总共耗费体力=3+12=15。可以证明15为最小的体力耗费值。
【输入】
输入包括两行，第一行是一个整数n（1 <= n <= 100），表示礼物的种类数。第二行包含n个整数，用空格分隔，第i个整数ai（1 <= ai <= 100）是第i种礼物的数目。
【输出】
输出包括一行，这一行只包含一个整数，也就是最小的体力耗费值。
【样例输入】
3
1 2 9
【样例输出】
15
【解题思路】
首先将所有的礼物堆按照每堆礼物的数目进行排序，将数目最少的两堆礼物合并，然后再将新堆放入数列中重新排序，再取出最少数目的两堆合并……每次合并后将体力消耗值加入到total变量，依次类推，经过n-1次合并后，所有礼物都合并成了一堆，total即为问题所求的“最小的体力耗费值”。
请完善以下程序：
program test06;
var
n,i,j,total:longint;
a:array[0..101] of longint;
procedure qsort(l,r:longint);
var
i,j,x,temp:longint;
begin
i:=l;
j:=r;
x:=a[(i+j) shr 1];
repeat
while a[i]<x do inc(i);
while x<a[j] do dec(j);
if i<=j then begin
temp:=a[i];
a[i]:=a[j] ;
a[j]:=temp;
i:=i+1;
dec(j) ;
end;
until i<=j ;
if l<j then qsort(l,j);
if i<r then qsort(i,r) ;
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
qsort(1,n)
total:=0 ;
for i:=1 to n-1 do begin
inc(total,a[i]+a[i+1]);
a[i+1]:=a[i]+a[i+1];
qsort(1,n) ;
end;
writeln(total);
end.