import Control.Applicative

area :: Int -> Double
area r = pi * r * r

cir :: Int -> Double
cir r = 2.0 * pi * r

solver :: Int -> String
solver r = show (area r) ++ " " ++ show (cir r)


main :: IO()
main = do
  r <- (read :: String -> Int) <$> getLine
  putStrLn $ solver r