import Data.Fixed

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

formatIn :: String -> Pico
formatIn = read :: String -> Pico

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

calc :: Pico -> [Pico]
calc r = [(r^2)*p, r*2*p]
    where p   = 3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679 