PROGRAM MAIN
    IMPLICIT NONE
    REAL :: L, K, COUNT

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