main :: IO ()
main = do
  n <- read <$> getLine
  putStrLn $ main' n

main' :: Int -> String
main' n = show $ floor(fromIntegral(n) * 1.5)