import Control.Applicative
main = do
	n<-read<$>getLine::IO Int
	let result=if n `mod` 2 == 0 then
		show$7 * n `div` 2 else
		show$3.5*realToFrac n
	putStrLn result