module Main where

import Control.Applicative
import Text.Printf
import Numeric

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

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

putInts :: IO [Int]
putInts = putStrLn . unwords . map showDouble

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

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

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

