1
package Simple_Greatest_Common_Divisor
2
is
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 N > 0;
9
--# post G = Gcd (M, N);
10
11
end Simple_Greatest_Common_Divisor;