Code

uses crt;
var n,s,i,count,j,t: integer;
var a: array [1..100] of integer;
begin
count:=0;
read(n,s);
for i:=1 to n do read(a[i]);
for i:=1 to n do
    for j:=1 to n do
        if a[i]<a[j] then
        begin
            t:=a[i];
            a[i]:=a[j];
            a[j]:=t;
        end;
for i:=1 to n do
    if a[i] <= s then
    begin
    count:=count+1;
    s:=s+a[i];
    end;
writeln(count);
end.

uses crt;

var A : array [1 .. 100] of integer;

    i, j, S, N : integer;

begin

clrscr;

readln(N, S);

for i := 1 to N do read(A[i]);

for j := N downto 2 do

    for i := 1 to j - 1 do

        if A[i] > A[i + 1] then

            begin

                A[i] := A[i] + A[i + 1] ;

                A[i + 1] := A[i] - A[i + 1];

                A[i] := A[i] - A[i + 1] ;

            end;

i := 1; while S >= A[i] do

    begin

        S := S + A[i];

        i := i + 1;

    end;

write(i - 1);

readln

end.