Mmm... veamos... si mal no te entendi... tu problema es q estas dividiendo por ejemplo 31 en 5 y te presenta este mensaje:
"El cociente de
1 entre 5 es igual a 6 y el resto
1"
Bueno si te pones a ver es logico q eso suceda ya q estas usando una misma variable... por ello te recomiendo hacerlo de la siguiente manera:
Código Delphi
[-]
if opcion = 2 then
Begin
Write('Introduce el dividendo: ');
readln(dividendo);
Write('Introduce el divisor: ');
readln(divisor);
resto := dividendo; cociente := 0;
while divisor <= resto do Begin
resto := resto - divisor; cociente := cociente + 1 end;
writeln('El cociente de ',dividendo,' entre ',divisor,' es igual a ',cociente,' y el resto ',resto);
readln;
end;
Y con eso cuando presentes el mensaje te saldrá bien... si no es eso lo q te sucede pues entonces corrigeme y veo como puedo ayudarte...
{Saludos}