ll@N,@A[N];wt(sum[i,1,N](sum[j,1,N](abs((i-j)*(A[i]-A[j])))));