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

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.

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.