Der Euklidische Algorithmus ggT := proc(a,b) local x,y,z; begin x := abs(a); y :=abs(b); while y <> 0 do z :=modp(x,y); x :=y; y :=z end_while; x end_proc: Dieser Algorithmus liefert zu zwei ganzen Zahlen a, b ihren ggT.
{}