import Control.Applicative

import Text.Printf

main = do
  r <- read <$> getLine
  putStrLn . toString . calc $ r

calc :: Float -> (Float,Float)
calc r = (r * r * pi, 2 * r * pi)

toString :: (Float,Float) -> String
toString (x,y) = printf "%f %f" x y