var i,j,n:word;
    a,b:array[1..50000] of longint;
    vt:array[1..50000] of word;
    tam,t:longint;
    duyet:array[1..50000] of boolean;
    f1,f2:text;
const fi='THANGMAY.INP';
      fo='THANGMAY.OUT';
begin
    n:=0;
    assign(f1,fi);reset(f1);
    assign(f2,fo);rewrite(f2);
    while not(eof(f1)) do
      begin
          inc(n);
          read(f1,a[n]);
          b[n]:=a[n];
          vt[n]:=n;
      end;
    for i:=1 to n-1 do
      for j:=i+1 to n do
        if a[i]>a[j] then
          begin
              tam:=a[i];
              a[i]:=a[j];
              a[j]:=tam;
              tam:=vt[i];
              vt[i]:=vt[j];
              vt[j]:=tam;
          end;
    t:=0;i:=1;
    while t+a[i]<=500 do
      begin
          t:=t+a[i];
          duyet[vt[i]]:=true;
          inc(i);
      end;
    for i:=1 to n do
      if duyet[i]=true then
        write(f2,b[i],' ');
    writeln(f2,#13#10,t);
    close(f1);close(f2);
end.

uses crt;
var f:text; i,j,k,s,n,t:longint;
a,b,vt:array[1..10000000]of longint;
begin
clrscr;
   assign(f,'THANGMAY.INP');reset(f);
      while not(eoln(f)) do begin inc(n); read(f,a[n]); b[n]:=a[n]; vt[n]:=n; end; 
   close(f);
   assign(f,'THANGMAY.OUT');rewrite(f);
      for i:=1 to n do 
         for j:=i+1 to n do 
            if a[i]>a[j] then 
               begin
                  t:=a[i]; a[i]:=a[j]; a[j]:=t;
                  t:=vt[i]; vt[i]:=vt[j]; vt[j]:=t;
               end;
      k:=0; s:=0;
      while (a[k+1]+s<=500)and(k<n) do begin inc(k); s:=s+a[k]; end; 
      for i:=1 to k do 
         for j:=i+1 to k do 
            if vt[i]>vt[j] then 
               begin
                  t:=vt[i]; vt[i]:=vt[j]; vt[j]:=t;
               end;
     for i:=1 to k do write(f,b[vt[i]],' ');
     writeln(f); writeln(f,s);
   close(f); 
end.