import Control.Applicative
import Text.Printf

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

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

main :: IO()
main = do
  r <- (read :: String -> Double) <$> getLine
  printf "%.6f %.6f\n" (area r) (cir r)