import Numeric
showF :: RealFloat a => a -> String
showF = flip (showFFloat Nothing) ""

areaAndCirc :: Floating a => a -> [a]
areaAndCirc r = [r * r * pi, 2 * r * pi]
main = putStrLn . unwords . map showF . areaAndCirc =<< readLn