program societati_comericale;

type persoana = record

                  id : 1..1000;
                  suma : 1..MaxInt;

                end;

var nT : 1..1000;
    n : array [ 1..1000 ] of persoana;
    l : 500000..MaxInt;
    i,j,k,s,v,p,g : integer;
    f : text;

begin

  assign(f,'data.txt');
  reset(f);

  readln(f,nT,l);

  for i := 1 to nT do
  begin

    n[i].id := i;
    read(f,n[i].suma);

  end;

  close(f);

  for i := 1 to 1000-1 do
       for j := 1 to 1000-i do
           if n[j].suma < n[j+1].suma then
             begin
               k := n[j].suma;
               n[j].suma := n[j+1].suma;
               n[j+1].suma := k;
             end;

  k := 0;
  g := 0;
  s := 0;
  v := n[1].suma;


 for i := 1 to nT do
 begin

  if s <= l then
    begin
    s := s + n[i].suma;
    k := k + 1;
    end;

  if n[i].suma = v then
    p := p + 1;

 end;

  if p = nT then
    writeln(g,' ',s)
  else
    writeln(k,' ',s);

end.