#include <iostream>
#include <stdlib.h>
#include <math.h>

using namespace std;

inline double abs(double a){
  return a*a;
}


const double varu=0.000001;



int main(int argc, char *argv[])
{
  int n;
  cin>>n;
  double x[n], y[n];
  for(int i=0; i<n; i++)
    cin>>x[i]>>y[i];
  double samm;
  cin>>samm;
  int kaugeim;  

  // Kas saaab
  {
    int i;
    for(i=0; i<n; i++)
      if(x[i]<=samm) break;
    if(i==n){
      cout<<"Ei saa hupata uhelegi kivile.\n";
      return 0;
    }
    else cout<<"Saab hupata monele kivile.\n";
    kaugeim=i;
  }
  
  // Kuhu saab
  bool saab[n];
  for (int i=0; i<n; i++)
    saab[i]=false;
  for(int i=0; i<n; i++)
    if(x[i]<=samm) saab[i]=true;     
  bool kuni=true;
  while(kuni){
    kuni=false;
    for(int i=0; i<n; i++)
      for(int j=i+1; j<n; j++)
        if(saab[i]!=saab[j])
          if( sqrt( abs(x[i]-x[j]) + abs(y[i]-y[j] ) ) <= samm )
            kuni=saab[i]=saab[j]=true;
  }
  for(int i=0; i<n; i++)
    if(x[kaugeim]<x[i] && saab[i]) kaugeim=i;
  cout<<"Suurim kaugus kaldast, kuhu veel saab, on "<<x[kaugeim]<<" meetrit.\n";
  
  // Mitme sammuga saab
  int samme[n];
  for(int i=0; i<n; i++)
    samme[i]=n+1;
  int sammuga=1;
  for(int i=0; i<n; i++)
    if(saab[i])
      if(x[i]<=samm) samme[i]=sammuga;
  kuni=true;
  while(kuni){
    kuni=false;
    for(int i=0; i<n; i++)
      if(saab[i]) for(int j=0; j<n; j++)
        if(saab[j])
          if(samme[i]==sammuga && samme[j]>sammuga)
            if( sqrt( abs(x[i]-x[j]) + abs(y[i]-y[j] ) ) <= samm ){
              samme[j]=sammuga+1;
              kuni=true;  
            }
    sammuga++;
  }
  cout<<"Kaugeimale kivile saab "<<samme[kaugeim]<<" sammuga.\n";
  
  // Mitme meetriga saab
  double meetreid[n];
  bool k2idud[n], olen[n], l2hen[n], kallas[n];
  
  for(int i=0; i<n; i++)
    if(saab[i])
      kallas[n]=l2hen[n]=olen[n]=k2idud[n]=false;
  for(int i=0; i<n; i++)
    if(x[i]<=samm){
      meetreid[i]=x[i];
      kallas[i]=true;
    }
  kuni=true;
  k2idud[kaugeim]=olen[kaugeim]=true;
  meetreid[kaugeim]=0;
  double parim;
  bool olemas=false;
  double kaugus;
  while(kuni){
    kuni=false;
    for(int i=0; i<n; i++)
      if(saab[i] && olen[i])
        for(int j=0; j<n; j++)
          if(saab[j] && i!=j){
            kaugus=sqrt( abs(x[i]-x[j]) + abs(y[i]-y[j] ) );
            cout<<kaugus<<endl;
	    if( kaugus <= samm ){
              if(kallas[j]){
                if(olemas){
                  if(parim>meetreid[i]+kaugus+meetreid[j])
                    parim=meetreid[i]+kaugus+meetreid[j];
                  }
                else{
                  parim=meetreid[i]+kaugus+meetreid[j];
                  olemas=true;
                }                   
              }
              else{
                if(k2idud[j]){
                  if(meetreid[j]>meetreid[i]+kaugus){
                    meetreid[j]=meetreid[i]+kaugus;
		    cout<<kaugus<<' '<<samm<<endl;
                    l2hen[j]=true;
                  }
}                  
                else{
                  meetreid[j]=meetreid[i]+kaugus;
cout<<kaugus<<endl;                  
k2idud[j]=l2hen[j]=true;
                }
              }  
            }
          }
    for(int i=0; i<n; i++){
      if(olen[i]) olen[i]=false;
      if(l2hen[i]){
        kuni=olen[i]=true;
        l2hen[i]=false;
      }
    }
  }
for(int i=0; i<n; i++)
cout<<meetreid[i]<<endl;
  cout<<"Kaugeimale kivile saab "<<parim<<" meetriga.\n";
  
  
  return 0;
}