import Control.Applicative
import Control.Monad
import Text.Printf

circleCulc :: (PrintfArg a, Floating a) => a -> IO () 
circleCulc x = let area = x * x * pi
                   circum = 2 * x * pi
               in printf "%.6f %.6f" area circum

main = do
    line <- readLn :: IO Double 
    circleCulc line

