Y ya entrados la escuelita, porque no hacemos la prueba con el bucle REPEAT UNTIL
Código Delphi
[-]
var
Dividendo, Divisor, Cociente: Integer;
begin
Dividendo:= 13;
Divisor:= 3;
cociente:= 0;
REPEAT
Dividendo:= Dividendo - Divisor;
cociente:= cociente + 1;
UNTIL Dividendo < Divisor
Writeln('El cociente es: ',cociente);
Writeln('El resto es: ',Dividendo);
end.
Salud OS.