Напишите программу вычисления НОК следующих четырёх чисел: 36, 54, 18 и 15

§ 1.2 Запись вспомогательных алгоритмов на языке Паскаль
Задание 5. Как известно, наименьшее общее кратное (НОК) и наибольший общий делитель двух чисел связаны соотношением: НОК(a, b) = (a*b) / НОД(a, b)
Напишите программу вычисления НОК следующих четырёх чисел: 36, 54, 18 и 15. Используйте процедуру вычисления НОД двух чисел:
procedure nod(a, b: integer; var c: integer);
begin
while a <> b do
if a > b then a := a - b else b := b - a;
c := a 
end;

Вот пример программы на языке Паскаль для вычисления НОК четырех чисел (36, 54, 18 и 15) с использованием процедуры для вычисления НОД:

program Zadacha5;
procedure nod(a, b: integer; var c: integer);
begin
  while a <> b do
    if a > b then a := a - b else b := b - a;
  c := a;
end;
function lcm(a, b: integer): integer;
var
  gcd: integer;
begin
  nod(a, b, gcd);
  lcm := (a * b) div gcd;
end;
var
  num1, num2, num3, num4: integer;
  result: integer;
begin
  num1 := 36;
  num2 := 54;
  num3 := 18;
  num4 := 15;
  result := lcm(num1, lcm(num2, lcm(num3, num4)));
  writeln('Наименьшее общее кратное (НОК) чисел 36, 54, 18 и 15: ', result);
end.

Пример программы на языке Python:

def nod(a: int, b: int) -> int:
    while a != b:
        if a > b:
            a -= b
        else:
            b -= a
    return a  # Возвращаем НОД
def lcm(a: int, b: int) -> int:
    gcd = nod(a, b)  # Вычисляем НОД
    return (a * b) // gcd  # Вычисляем НОК
# Основная часть программы
num1 = 36
num2 = 54
num3 = 18
num4 = 15
# Вычисляем НОК для четырех чисел
result = lcm(num1, lcm(num2, lcm(num3, num4)))
print('Наименьшее общее кратное (НОК) чисел 36, 54, 18 и 15:', result)