Вложенные циклы (часть кода есть)

[Susanoo]

Убедиться в том, что если числа a и b являются взаимно-простыми, то НОК(a,b) = ab.

Нужно сделать так, чтобы вводились 2 числа, выводилось значение TRUE или FALSE и выводилось НОК (как я понял, 1, если взаимно-простые, любое другое, если не взаимно-простые).

Есть код для вывода результата TRUE или FALSE. Не пойму, что добавить, чтобы выводило НОК.

Прошу помочь.

var
c, d, mult:Integer;
result: Boolean;

begin
writeln('Enter C ');
readln(c);
writeln('Enter D ');
readln(d);

  mult := c * d;
  while (c <> 0) and (d <> 0) do
    if c > d 
      then c:= c mod d
      else d:= d mod c;
      
  result:= c + d = 1;
  Writeln('The Result is ',result);
  Readln;

  end.

[BDA]

Вы нашли НОД, а НОК связан с НОД формулой НОК(a, b)=(a * b) / НОД(a, b). Так что осталось посчитать НОК на основе НОД и напечатать его.

[Kronos913]

Function NOD(const in1, in2:LongInt; var out1:LongInt):Boolean;
var
 i:longInt;
begin
 out1:=1;
 While (in1 mod (out1*2) = 0) and (in2 mod (out1*2) = 0) do begin
  out1:=out1*2;
 end;
 i:=3;
 While ((out1*i)<in1) and ((out1*i)<in2) do begin
  While (in1 mod (out1*i) = 0) and (in2 mod (out1*i) = 0) do begin
   out1:=out1*i;
  end;
  inc(i, 2);
 end;
 result:= (out1=1);
end;

Вводятся 2 числа, 1 число выходит, сама функция true если они взаимопростые и false если нет