import Control.Applicative

import Text.Printf
    (printf)
    
solve :: Double -> (Double, Double)

solve r
    = (area, border) where
        area = pi * r ** 2
        border = 2 * pi * r

input :: Read a => IO [a]

input
    = map read.words <$> getLine

output :: (Double, Double) -> String

output (area, border)
    = printf "%.5f %.5f" area border
    
main :: IO ()
    
main
    = do
        [r] <- input
        putStrLn $ output $ solve r