PROGRAM MAIN
    IMPLICIT NONE
    REAL(8) :: L, K, COUNT

    READ *, L, K
    COUNT = CEILING(L / (K * 2)) - 1
    PRINT *, INT(K * COUNT)
END PROGRAM MAIN