ll@n,@a[n];wt(sum[i,0,n,j,0,n](abs((i-j)*(a[i]-a[j]))));