import Data.List
import Text.Printf
main = do
  input <- readLn
  let r = fromIntegral input
  printf "%.6f" $ (r * r * pi :: Double)
  putStr " "
  printf "%.6f" $ (r * 2 * pi :: Double)
  putStrLn ""