import Numeric
solve :: RealFloat a => a -> [a]
solve r = [pi * r * r, 2 * pi * r]

myShow :: RealFloat a => a -> String
myShow float = showFFloat Nothing float ""

main :: IO ()
main = (readLn :: IO Double) >>= putStrLn . unwords . map myShow . solve