module Main where

    import Debug.Trace
    import Text.Printf

    solve :: Double -> String
    solve r = (a ++ " " ++ c) where
        a = printf "%.6f" ((pi * r * r)::Double)
        c = printf "%.6f" ((fromIntegral 2 * pi * r)::Double)

    readLine:: IO [Double]
    readLine = fmap (map read . words) getLine
    
    main :: IO() 
    main = do
        [r]    <- readLine
        let ans = solve r
        putStrLn ans
    
