Pascal/Turbo Pascal - División sin utilizar MOD o Div

Buenas, necesito ayuda para realizar un programa que me de como resultado el resto de una división sin utilizar el MOD o EL DIV....

Hola Victor, aquí tienes un programita con una función para calcular el resultado entero y otra para el resto... puse constantes a modo de ejemplo en el programa principal, pero pueden ser cualquier parámetro... espero que te sirva. Un abrazo.

program division;

function Entero(n1,n2 : integer) : integer;
var
suma : integer;
resultado : integer;
begin
suma:=0;
resultado:=0;
while(suma <= (n1-n2))do
begin
suma:=suma + n2;
resultado:=resultado + 1;
end;
Entero:=resultado;
end;

function Resto(n1,n2 : integer) : integer;
var
suma : integer;
begin
suma:=0;
while(suma <= (n1-n2))do
begin
suma:=suma + n2;
end;
Resto:=n1-suma;
end;

begin
writeln('Resultado entero de 78 / 13 = ',Entero(78,13));
writeln('Resto de 78 / 13 = ',Resto(78,13));
readln;
end.

No hay problema para realizar una division sin mod o div.
Tienes dos opciones:
1a. Trabajar com numeros reales (:real) y utilizar la tecla " / "

2a. (bastante compleja)
Pregunta por el méto de newton. Seria muy largo explicar como funciona ahora.
Solo te digo que se tiene que trabajar con tablas donde cada trozo es un dígito i hacer aproximaciones mediante la iteración X_n+1=2X_n - bX_n^2
Esta iteración da de forma exponencial el resultado de la división 1/b
Es bastante complejo, però hay libros dondes esta muy bien explicado