Algorytm Euklidesa

(* Algorytm Euklidesa inaczej *) (* Dane: n>0 i m>0 liczby naturalne *) (* Wynik: nwd(n,m) *)

while n ≠ m do

r:=0;

while r ≠n and r ≠m

do

r:=r+1

od;

if r=n then nmiejsze:=true; max:=m else nmniejsze:=false; max:=n fi;

q:=0;

while r≠max

do

r:= r+1; q:=q+1

od;

if nmniejsze then m:=q else n := q fi

od ( wynik = n)