import Control.Applicative
import Data.List
import qualified Control.Monad as Monad
import Text.Printf

main :: IO ()
main = calcCircle  

calcCircle :: IO()
calcCircle = do 
  input <- getLine  
  let r = read input :: Double
  let s = realToFrac(r) ^ 2 * realToFrac(pi) :: Double 
  let c = realToFrac(r) * 2 * realToFrac(pi) :: Double 
  printf "%.7f %.7f" s c
