module Main where

import Numeric
import Data.Functor

main :: IO ()
main =  do
  { [r] <- getDoubles
  ; putStrLn $ unwords $ map (flip (showFFloat Nothing) "") [pi*r*r,2*pi*r]
  }

getDoubles :: IO [Double]
getDoubles = map read . words <$> getLine