关于上次射击题目100分解法（pascal)

var
        a:array[1..1000] of longint;
        n,m,max,i,j,mm,t:longint;
        p:boolean;
procedure qsort(l,r:longint);
var
        i,j,mid,t:longint;
begin
        i:=l;
        j:=r;
        mid:=a[i];
        repeat
                while a[i]>mid do inc(i);
                while mid>a[j] do dec(j);
                if i<=j then
                begin
                        t:=a[i];
                        a[i]:=a[j];
                        a[j]:=t;
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then qsort(l,j);
        if i<r then qsort(i,r);
end;
begin
        assign(input,'dart.in');reset(input);
        assign(output,'dart.out');rewrite(output);
        readln(n,m);
        for i:=1 to n do
                readln(a[i]);
        qsort(1,n);
        p:=true;
        repeat
                mm:=max;
                for i:=1 to n do
                        if ((max+a[i])<=m)and(t<4) then
                        begin
                                max:=max+a[i];
                                inc(t);
                                break;
                        end;
                if mm=max then break;
        until p=false;
        writeln(max);
        close(input);
        close(output);
end.