Problema con restas sucesivas

[[Delphius]]

No pude evitarlo... tuve que meter código.
Y ya que estamos... si se desea algo más "elaborado":

Código Delphi [-]
function DivisionEntera(Dividendo, Divisor: integer; var Resto: integer): integer;
begin
  result := 0;
  if Divisor = 0
     then begin
            ShowMessage('Error. División por cero');
            exit;
          end;
  Resto := Dividendo;
  while resto >= Divisor do
    begin
      Resto := resto - Divisor;
      inc(Result);
    end;
end;

Saludos,