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

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

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

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

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

var
 a, b, c, d: integer;
 
function NOD(a, b: integer): integer;
begin
  if a=0 then NOD:=b
   else NOD:=NOD(b mod a, a)
end;
 
function NOK(a, b: integer): integer;
begin
  NOK:=(a div NOD(a, b))*b;
end;
 
begin
 writeln ('Напишите 4 числа: ');
 readln (a, b, c, d);;
 writeln ('Результат: ', nok(nok(nok(a, b), c), d));
end.

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

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