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,