import Text.Printf(printf)

main :: IO ()
main = putStrLn . doubleListToStr . areaCircumf =<< readLn

areaCircumf :: Double -> [Double]
areaCircumf r = [pi * r ** 2, 2 * pi * r]

doubleListToStr :: [Double] -> String
doubleListToStr = unwords . map (printf "%.8f" :: Double -> String)