program circle_pond
  implicit none
  real(8), parameter :: pi = 3.14159265358979d0
  real(8) :: r
  character(64) :: s
  read(*,*) r
  write(s,'(f32.16)') 2.d0*pi*r
  write(*,'(a)') trim(adjustl(s))
end program circle_pond