program t
implicit none
integer::L,K
read*,L,K
print"(i0)",((L-1)/(2*K))*K
end program t