main :: IO()
main = getLine >>= print.(\[x, y] -> (*y) $ x `div` (y * 2)).map read.words