Pascal.Наименьшее общее кратное трех натуральных чисел

program nok;
{
1. Подпрограммы.Составить программу
нахождения наименьшего общего кратного
трех натуральных чисел
}
{$APPTYPE CONSOLE}

uses
  SysUtils;

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.

{
[COLOR="Blue"]Это только в разделе Фриланс можешь писать и там предлагать свои услуги,но не в Студентах,тут помощь бесплатная.[/COLOR]
}