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 n_miejsze:=true; max:=m else n_mniejsze:=false; max:=n fi;

q:=0;

while r≠max

do

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

od;

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

od ( wynik = n)