import Control.Applicative ((<$>), (<*>))

main :: IO ()
main = do
  solve <$> readLn >>= print

solve :: Int -> Double
solve n = (fromIntegral n) * 3.5