Zitat:
if div_d > 0 then
Weil das nachfolgende
i := 0;
nicht immer vor dem WHILE ausgeführt wird
Verschieb den Teil von diesem IF einfach mit einem MOD in das erste IF, [edit] nee, weil wegen dem letzten IF nach dem WHILE
oder das i:=0; vor's IF
oder ein BEGIN drumrum