Buenas, tengo un tema con el final del programa, se supone que al ingresar -1 debe parar, pero el programa para de tomar entradas cuando ingreso dos veces el -1, no estaria resultando nada para corregirlo, si alguien me puede ayudar lo agradezco!
program esMultiplo;
var n, m : integer;
function esMultiplo(num, mult : integer) : boolean;
begin
if num > mult then
if (num mod mult = 0) then
begin
esmultiplo := true;
writeln(num, ' ', mult);
writeln('Si');
end
else
begin
writeln(num, ' ', mult);
writeln('No');
end;
else
if (num mod mult = 0) then
begin
esmultiplo := true;
writeln(mult, ' ', num);
writeln('Si');
end
else
begin
writeln(mult, ' ', num);
writeln('No');
end;
end;
begin
writeln;
repeat
write('Ingrese dos numero o ingrese -1 dos veces: ');
readln(n, m);
if (n >= m) then
esMultiplo(n, m)
else
esMultiplo(m, n);
until n = -1;
writeln;
end.
Dejo el codigo en texto por si quieren probarlo y en foto por la indentacion. (La mejor solucion que encontre es pedirle al usuario que ingrese dos veces el valor -1)