ll@N,@T[N],x,t;x=t=sum[i,0,N](T[i]-T[0]);sortA(N,T);rep(i,1,N)x+=t+=(T[i]-T[i-1])*(2*i-N);wt(x/2);