main = getLine >>= print . solve . map read . words

solve :: [Int] -> Int
solve [l, k]
        | m == 0 = h - k
        | otherwise = h - m
        where
        h = div l 2
        m = mod h k