ll@n;Mint@x[n],s=sum(x(n));wt(sum[i,0,n]((s-x[i])*x[i])/s+1);