Напишите программу для нахождения НОК для n чисел (Pascal)

Question

Напишите программу для нахождения НОК для n чисел (Pascal)

Answer 1

// Программа  и скриншот результата ее работы - в приложениях

var m,n:integer;

// Наибольший общий делитель
function GCD(a,b:integer):integer;
var   x,y:integer;
begin
  x:=a;
  y:=b;
  while x<>y do
    if x>y
    then x:=x-y
    else y:=y-x;

  GCD:=x;
end;

// Наименьшее общее кратное
function SCM(a,b:integer):integer;
begin
  SCM := a*b div GCD(a,b);
end;

begin
  writeln('Введите два целых числа m, n: ');
  readln(m, n);
 
  writeln('Наименьшее общее кратное ',
          m,' и ', n, ' = ', SCM(m,n) );
end.

---