import Text.Printf

main = getLine >>= putStrLn . solve . input

-- 入力
input :: String -> Double
input = read

-- 解答
solve r = unwords . (map $ printf "%.8f") $ [a, b]
  where
    a = r * r * pi
    b = 2 * pi * r
