import Numeric
main = do
    str <- getLine
    let r = read str :: Double
    putStr $ showFFloat Nothing (pi * (r^2)) ""
    putChar ' '
    putStr $ showFFloat Nothing (2 * pi * r) ""
    putChar '\n'