ll n,x[3d5],y[3d5];
ll xmin,xmax,ymin,ymax;
ll r[3d5],k;

ll sq(ll x){ return x*x; }

{
	rd(n,(x,y)(n));
	xmin=min[i=0---n-1](x[i]);
	xmax=max[i=0---n-1](x[i]);
	ymin=min[i=0---n-1](y[i]);
	ymax=max[i=0---n-1](y[i]);
	if(ymax-ymin>xmax-xmin){
		rep(i,n)swap(x[i],y[i]);
	}
	sortA(n,x,y);
	rep(i,n){
		rep(j,k){
			if(sq(x[i]-x[r[j]])+sq(y[i]-y[r[j]])<100){
				break_continue;
			}
		}
		r[k++]=i;
	}
	wt(k);
	wt(r(k));
}