var s:array[1..1000000] of longint; g,n,a,b,t,i,j:longint;

begin

readln(n);

for a:=1 to n do read(s[a]);

for i:=1 to (n-1) do

for j:=i+1 to n do

if s[i]>s[j] then

begin

t:=s[i]; s[i]:=s[j]; s[j]:=t;

end;

g:=0;

for b:=1 to n-1 do

begin

g:=s[b]+s[b+1]+g;

s[b+1]:=s[b]+s[b+1];

for i:=b+2 to n do

if s[i]<s[i-1] then

begin

t:=s[i];

s[i]:=s[i-1];

s[i-1]:=t;

end

else break;

end;

write(g);

end.