Euklidscher Algorithmus mit repeat until

[jfheins]

Ja, tut es

Ich glaube, das soll so sein:

Delphi-Quellcode:

             
a:=b;               
b:=c; 
until (a)MOD(b)=0;