Var a: array[1..100000] of word;

       n, s, i: longword;

       f1, f2: text;

procedure sort(l, r: longword);

  var i, j: longword;

      x, t: longint;

  begin

    i:=l; j:=r; x:=a[(l+r) div 2];

    repeat

       while a[i]<x do inc(i);

       while a[j]>x do dec(j);

       if i<=j then

         begin

           t:=a[i];

           a[i]:=a[j];

           a[j]:=t;

           inc(i); dec(j);

         end;

    until i>j;

    if i<r then sort(i, r);

    if j>l then sort(l, j);

  end; 

 

begin

   assign(f1, 'dayso.inp'); reset(f1);

   assign(f2, 'dayso.out); rewrite(f2);

   Readln(f1, n); s:=0;

   For i:=1 to n do

      Begin

          read(f1, a[i]); s:=s+a[i];

      End;

   Sort(1, n);

   Writeln(f2, s);

   For i:=1 to n do write(f2, a[i], ' ');

   Close(f1); close(f2);

end.