ll a[210],s,n;{rd(n,a(n));s+=a[0..n-1];n=sqrt(s);rep(j,2*n)s-=(a[j]<?j)<?n+n-j;wt(s);}