import Data.Int (Int64)


solve :: Integral a => a -> a
solve n = 3 * n `div` 2


main :: IO ()
main = do
    n <- readLn :: IO Int64
    print $ solve n