a:array[-2..10009] of longint;

procedure up(son:longint); //将数读入堆中

var t:longint;

begin

while (son<>1) and(a[son div 2]>a[son]) do

begin

t:=a[son div 2];

a[son div 2]:=a[son];

a[son]:=t;

son:=son div 2;

end;

end;

procedure down(h:longint); //将数取出堆，将最大的一个放在根节点，进行排序。

var fa,son,t:longint;

begin

fa:=h;

while (fa*2<=n)or (fa*2<=n) do

begin

if (fa*2+1>n) or(a[fa*2]<a[fa*2+1])

then son:=fa*2

else son:=fa*2+1;

if a[fa]>a[son]

then

begin

t:=a[fa];

a[fa]:=a[son];

a[son]:=t;

fa:=son;

end

else break;

end;

end;

begin

sum:=0;

readln(n);

read(a[1]);

for i:=2 to n do

begin

read(a[i]);

up(i);

end;

while n>1 do //取数

begin

s:=0;

s:=a[1];

a[1]:=a[n];

n:=n-1;

down(1); //取一个数排一次。

s:=s+a[1];

a[1]:=a[n];

n:=n-1;

down(1);

n:=n+1;

a[n]:=s;

sum:=sum+s; //保存消耗的体力

up(n);

end;

write(sum);

end.