1package Greatest_Common_Divisor
2is
3
4 --# function Gcd(A, B: Natural) return Natural;
5
6 procedure G_C_D(M, N: in Natural; G: out Natural);
7 --# derives G from M, N;
8 --# pre M >= 0 and N > 0;
9 --# post G = Gcd(M,N);
10
11end Greatest_Common_Divisor;
12