{$APPTYPE CONSOLE}
var i,j,c,n,s,k,l:longint;f:text;
a:array [1..100000] of longint;
begin
//Зчитування даних
assign(f,'Lastask.dat');reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
s:=0;k:=0;
repeat
//Впорядкування
for i:=1 to n-1 do
for j:=i to n do
if a[j]<a[i] then begin
c:=a[j];
a[j]:=a[i];
a[i]:=c;
end;
//Обчислення
l:=2;
a[l]:=a[l]+a[l-1];
a[l-1]:=-1;
s:=s+a[l];
inc(k);
until k=n-1;
assign(f,'Lastask.sol');rewrite(f);
write(f,s);close(f);
end.