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