module Main where

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

main :: IO ()
main = do
  r <- readLn
  putStrLn.unwords.map show $ [r*r*pi, r*2*pi]