Подпрограмма нахождения наименьшего общего кратного для трёх натуральных чисел - Turbo Pascal

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

-Нужно написать подпрограмму, реализующую решение задачи Составить программу для нахождения наименьшего общего кратного для трёх натуральных чисел Заранее огромное спасибо!

var Ch1, Ch2, Ch3, temp, Res: Integer;
 
procedure nok1(Num1, Num2: Integer; var Res: Integer);
var
  I, K: Integer;
begin
  if Num1*Num2 = 0 then Res:= Num1+Num2
  else
    begin
      K:= Num1*Num2;
      I:= 1;
      repeat
        I:= I+1;
        if (Num1 mod I = 0) and (Num2 mod I = 0) then
          begin
            Num1:= Trunc(Num1/I);
            Num2:= Trunc(Num2/I);
            K:= Trunc(K/I);
            I:= 1;
          end;
      until (Num1 <= I) or (Num2 <= I);
      Res:= K;
    end;
end;
begin
Res := 0;
temp := 0;
Write('Chislo 1 = ');
Readln(Ch1);
Write('Chislo 2 = ');
Readln(Ch2);
Write('Chislo 3 = ');
Readln(Ch3);
 
nok1(ch1, ch2, temp);
nok1(temp, ch3, Res);
 
Writeln('Result = ', res);
 
Readln;
end.

Всем всё равно большое спасибо) Этот код я нашел на другом сайте, надеюсь, он вам пригодится:3

Решение задачи: «Подпрограмма нахождения наименьшего общего кратного для трёх натуральных чисел»

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

function LCM(c, d: Longint): Longint;
var m: Longint;
begin
  m:=c*d;
  while (c<>0) and (d<>0) do
    if c>d then c:=c mod d else d:=d mod c;
  LCM:=m div (c+d);
end;
var a, b, c: Integer;
begin
  Write('Введите три числа: '); ReadLn(a,b,c);
  WriteLn('НОК: ',LCM(LCM(a,b),c));
end.

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

В функции LCM объявлены две переменные типа Longint - c и d.
В цикле while происходит взаимодействие между переменными c и d.
Если c больше d, то значение c делится на d, иначе значение d делится на c.
После выполнения цикла, значение переменной m устанавливается равным произведению c и d.
Затем, значение переменной m делится на сумму c и d, что дает наименьшее общее кратное.
В основной программе объявлены три переменные типа Integer - a, b и c.
Пользователю предлагается ввести три числа.
Введенные числа сохраняются в переменных a, b и c.
Вызывается функция LCM с аргументами LCM(LCM(a,b),c).
Результат выводится на экран.