So vielen Dank an alle Helfer, war noch Unterwegs in letzter Zeit und hatte keine Zeit für die Programmierung des Programms.
Die Lösung von Gammatester war genau das was ich brauchte jetzt funktioniert endlich auch alles =)
Delphi-Quellcode:
r := b;
for i:=2 to a do begin
r := r*b mod m;
end;
Nochmal ein großes Danke an alle Helfer, dieses tollen Forums
