import Text.Printf

parseDouble :: String -> Double
parseDouble x = read x :: Double

main :: IO ()
main = do
    line <- getLine
    let
        r = parseDouble line
        s = pi * r ** 2
        c = 2 * pi * r
    printf "%f %f\n" s c