Найти наименьшее общее кратное четырех заданных чисел - Free Pascal

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

найти наименьшее общее кратное четырех заданных чисел

Решение задачи: «Найти наименьшее общее кратное четырех заданных чисел»

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

uses crt;
var a,b,c,d:integer;
function NOD(x,y:integer):integer;
Begin
clrscr;
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y;
end;
Begin
Write ('Vvedite a b c d:');
Readln(a,b,c,d);
Writeln('NOK ',a,' ',b,' ',c,' ',d,'=',NOK(NOK(a,b),NOK(c,d)));
Readln;
End.

Объяснение кода листинга программы

Программа использует функцию NOD, которая находит наименьшее общее кратное (НОК) двух целых чисел x и y.
Если x не равно нулю, то функция NOD вызывает саму себя, но уже с аргументами y mod x и x, где y mod x - это остаток от деления y на x.
Если x равно нулю, то функция NOD просто возвращает значение y.
Программа использует функцию NOK, которая находит НОК двух НОК (получается, что это НОК уже четырех чисел).
Функция NOK вычисляет НОК от результата функции NOD, умноженного на y.
В основной части программы пользователю предлагается ввести четыре целых числа a, b, c и d.
После ввода чисел программа вызывает функцию NOK с аргументами NOK(a,b), NOK(c,d) и выводит результат на экран.
Результатом будет являться НОК всех четырех введенных чисел.