module Main where

import Control.Appicative
import Text.Ptintf
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 ""

