import Control.Applicative
area :: Float -> Float
area r = pi * r * r

cir :: Float -> Float
cir r = 2.0 * pi * r

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


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