module Main where

import Control.Applicative
import Control.Monad
import Data.List
import Text.Printf
import Numeric

main :: IO ()
main = do
  r <- readLn :: IO Double
  putStrLn.unwords $ [printf "%.8f" (r*r*pi), printf "%.8f" (r*2*pi)]