where
gcd := GCDI(a, b) :=
[a, b are integers
algorithm used:
rem(a, b) - remainder after dividing integer a by integer b]
1. if a < b then
r := a
a := b
b := r
fi
2. while b != 0 do %!= means not equal
r := rem(a, b)
a := b
b := r
od
3. return a