программа НОД для двух чисел(Pascal)

[s4egol]

Ребят,задали на дом первое задание по Pascal в универе. Задание в заголовке.
в интернете нашёл программу этого задания. написал но она не работает

program nokik;
var a,b: longint;
function nok(x,y:longint):longint;
begin
NOK:=(x div NOK(x,y))*y;
end;
begin
write('введите a:');
readln(a);
write('введите b:');
readln(b);
writeln('НОК',a,'и',b,'=',nok(a,b)) ;
readln;
end.

скажите пожалуйста в чем тут ошибка? или скажите как можно облегчить программу?!?! пожалуйста)))

[BDA]

Не удивительно, что не работает.
Получается бесконечная рекурсия.

function nod(x,y:longint):longint;
begin
if x<y then nod:=nod(x,y-x)
else
if x=y then nod:=x
else
nod:=nod(y,x-y);
end;

Попробуйте такой код (за работоспособность не отвечаю ).

[s4egol]

спасибо за предложение) попробую)

[s4egol]

а для НОК ещё случайно не подскажешь?)

[s4egol]

спс) уже сам написал)