import Numeric (showFFloat)

areaAndcirc :: Double -> String
areaAndcirc r = unwords [showFFloat Nothing (pi * r * r) ""
                        ,showFFloat Nothing (2 * pi * r) ""]

main :: IO ()
main = do
  r <- readLn
  putStrLn $ areaAndcirc r