import Text.Printf (printf)

s = printf "%.6f"

main = do
	r <- readLn
	--[a,b,c] <- map (read :: String -> Int) . words <$> getLine
	putStrLn $ s ((pi::Double) * r ^ 2) ++ " " ++ s (2 * (pi::Double) * r)