ll n,t,z,l,r,m,a[4d5],s[4d5];{rd(n,a(n));sortA(n,a);s[1..n]=t+=a[0..];rep[a,i](x,n){for(l=0,r=i+1;m=l+r>>1,m-l;a[n-m]+a[i-m]>2x?l=m:r=m);z>?=t-s[n-l]+s[i]-s[i-l]-l*2x;}wt(z);}