Задача на вычисление НОД - Prolog

Формулировка задачи:

Помогите пожалуйста, решить задачу на Visual Prolog!!! Даны натуральные числа n, m; найти НОД(n,m). Напишите программу, содержащую рекурсивную функцию вычисления НОД, основанную на соотношении НОД(n,m)=НОД(m,r), где r - остаток от деления n на m.

Решение задачи: «Задача на вычисление НОД»

textual
                            Листинг программы 
                        

                            predicates
gcd(integer,integer,integer)
 
clauses
gcd(A,0,A) :- !.
gcd(A,B,R) :- U=(A mod B), gcd(B,U,R).
                        