ll@N,@M,@A[N],a,t;sort(A,A+N);a=t=sum[i,1,M]((A[i]-A[i-1])**2);REP(j,0,N-M)a<?=t+=(A[M+j]-A[M+j-1])**2-(A[j+1]-A[j])**2;wt(a);