import Numeric
showF :: Double -> String
showF x = showFFloat (Just 6) x ""

main :: IO ()
main = do
  r <- fmap read getLine :: IO Double
  putStrLn $ unwords [showF $ pi * r ^ 2, showF $ 2 * pi * r]
  
