var n,g,i,j,k,max:longint;
    a,m,b:array[0..75000] of longint;
    
begin
  assign(input,'ghiozdan.in');
  assign(output,'ghiozdan.out');
  reset(input);
  rewrite(output);
  read(n,g);
  for i:=1 to n do read(a[i]);
  m[a[1]]:=1;
  b[a[1]]:=a[1];
  max:=0;
  for i:=2 to n do begin
    for j:=g-a[i] downto 1 do begin
      if (m[j+a[i]]>m[j]+1) or (m[j]>0) then begin
        m[j+a[i]]:=m[j]+1;
        b[j+a[i]]:=a[i];
        if j+a[i]>max then max:=j+a[i];
      end;
    end;
    m[a[i]]:=1;
    b[a[i]]:=a[i];
  end;
//  for i:=1 to g do writeln(m[i],' ',b[i]);
  writeln(max,' ',m[max]);
end.