import Text.Printf

main :: IO ()
main = do
    str <- getContents
    let inputs = [read word :: Double | word <- words str]
    let r = head inputs

    putStrLn $ printf "%.5f" (pi * r * r) ++ " " ++ printf "%.5f" (2 * pi * r)