import Text.Printf

ft (s, l) =
    printf "%F %F\n" s l

circle :: [Double] -> (Double, Double)
circle (r:_) =
  ( pi * r * r, 2.0 * pi * r)

main = do
  r <- getLine
  putStrLn $ ft $ circle $ map (read :: String -> Double) $ words r