      PROGRAM piyo
      IMPLICIT NONE
      
      real(16) :: R
      real(16),parameter :: pi = 3.141592653589793238462
      
      read*, R
      
      print*,2._16*pi*R
      
      
      
      
      
      
      
      END PROGRAM