Еще задачка от админа

Попробуйте понять, что делает эта маленькая програмка. В комментариях к программе маленькая подсказка, которая должна ускорить процесс понимания. И по традиции - первый, кто напишет в комментарии правильный ответ - получит плюс к репутации (для зарегистрированных на сайте).

*** a >= 0; d > 0 ***
r := a; q := 0;
while not (r < d) do 
begin
 r := r - d; 
 q := q + 1;
end;