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