ll@N,@K,@H[N],@(X,Y)[N],k,a=0;VVI W(N);rep(i,N)W[i]={H[i],i};sortA(N,W);REP(i,N)k=W[i].second,a+=OR[j,i,N](H[j]>H[k]&&(X[j]-X[k])**2+(Y[j]-Y[k])**2<=K);wt(N-a);