import Data.Fixed

main = getContents >>= putStrLn.formatOut.calc.formatIn

formatIn :: String -> Nano
formatIn = read :: String -> Nano

formatOut :: [Nano] -> String
formatOut = unwords.map show

calc :: Nano -> [Nano]
calc r = [r^2*p, r*2*p]
    where p   = 3.1415926535