main = do
    r <- getDouble
    let s = r * r * pi
    let l = r * 2 * pi
    printf "\f \f\n" s l

getDouble :: IO (Double)
getDouble = (map read getLine) :: Double

pi :: Double
pi = 3.141592653589793
