main :: IO ()
main = do
    num <- fmap read getLine
    print $ floor (num * 1.5)