var a:array[1..1000] of longint;
f1,f2:text;
i,j,n:word;
tam,t:longint;
const fi='tong.inp';
fo='tong.out';
begin
    assign(f1,fi);reset(f1);
    assign(f2,fo);rewrite(f2);
    readln(f1,n);
    for i:=1 to n do
       begin
           read(f1,a[i]);
           if a[i] mod 3 = 0 then
              t:=t+a[i];
       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;
             end;
    for i:=1 to n do write(f2,a[i],' ');
    writeln(f2);
    writeln(f2,t);
    close(f1);close(f2);
end.

uses crt;
var f:text; i,j,n,s,t:longint;
a:array[1..1000000]of longint;
begin
clrscr;
   assign(f,'tong.inp');reset(f);
      readln(f,n);
      for i:=1 to n do begin read(f,a[i]); inc(s,a[i]); end;
   close(f);
   assign(f,'tong.out');rewrite(f);
      for i:=1 to n do  
         for j:=1 to i 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 write(a[i],' '); writeln;
      writeln(s);
   close(f); 
end.