Hola.
Sin olvidar lo que ha dicho el amigo dec (por cierto, es "muto poprio"
), te doy mi posible solución.
Código Delphi
[-]
var
Dividendo, Divisor, Cociente, Resto: Integer;
begin
Dividendo:=100; Divisor:=3; Cociente:=1;
Resto:=Dividendo;
While Resto>Divisor do
begin
Inc(Cociente);
Resto:=Resto-Divisor;
end;
end;
Espero que te sea de ayuda.
Repásate la guía de estilo, y hasta la próxima