program W
implicit none
integer(16)::S,M
read*,S,M
print"(I0)",((S/1000_16)/M)*1000
end program W