Выбился из сил...может у кого есть из вас.
Нужно доказать что НОД и НОК - это примитивно рекурсивные функции. Если у кого есть решение буду рад. Хотя бы помогите алгоритмом и какими теоремами пользоваться. Заранее спс... ...

Это как? Тебе нужен алгоритм нахождения НОД и НОК? Или что?

Примитивно рекурсивное описание...

Может быть, этот вариант подойдёт:

function gcd(a,b:integer):integer;
var
t:integer;
begin
if a<b then
begin
t:=a; a:=b; b:=t;
end;
if b<1 then gcd:=a else
begin a:=a-b; gcd:=gcd(a,b);
end;
end;

Думаю, тему можно и нужно закрыть, разобрались пытались разобраться в аське, ОП в решении уже не заинтересован (сдал).

Света, "примитивная рекурсия" - это термин из теории алгоритмов, практически ничего общего с рекурсией в программировании не имеющий. Кстати, как и теория алгоритмов имеет довольно опосредованное отношение к нашему разделу "Алгоритмы". Это совсем разные алгоритмы

Хочешь - посмотри в википедии.