ll@n,@k,@h[n],@(x,y)[],z=n;
rep(i,n){
	rep(j,n){
		if(h[i]<h[j]){
			if((x[j]-x[i])*(x[j]-x[i])+(y[j]-y[i])*(y[j]-y[i])<=k*k){
				--z;
				break;
			}
		}
	}
}
wt(z);