module Main where

import Control.Applicative
import Text.Printf
import Numeric

main :: IO ()
main = do
  { [r] <- getDoubles
  ; let area = pi * r ^ 2
  ; let peri = 2 * pi * r
  ; putDoubles [area, peri]
  }

--
  
getInts :: IO [Int]
getInts = map read . words <$> getLine

putInts :: [Int] -> IO ()
putInts = putStrLn . unwords . map show

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

putDoubles :: [Double] -> IO ()
putDoubles = putStrLn . unwords .map showDouble

showDouble :: Double -> String
showDouble x = showFFloat Nothing x ""

