ll@n,@t[n];sortA(n,t);wt(sum[i,0,n](t[i]*=i-~i-n));