import Control.Applicative
import Numeric

main = do
    ss <- words <$>getLine
    let a:_ = [ read s | s <- ss] ::[Double]
    putStrLn $  (showFFloat (Just 10) (a*a*pi))"" ++" "++ (showFFloat (Just 10)  (a*2*pi))""