ll@N,@A[N],t=0;sortA(N,A);wt(sum[i,0,N](t+=A[i],A[i]*(i+1)-t));