import Text.Printf

solve1 a b = (d,r,f)
  where
    d = a `div` b
    r = a `mod` b
    f = (toDouble a) / (toDouble b)

toDouble :: Int -> Double
toDouble x = fromInteger $ toInteger x

solve2 r = (a, c)
  where
    a = pi * r**2
    c = 2 * pi * r

main = do
  r <- getLine
  let r' = read r :: Double
      (a,c) = solve2 r'
  printf "%.5f %.5f\n" a c

