Вычислить и вывести наименьший общий знаменатель трех дробей - QBasic

Формулировка задачи:

для сложения трех одинаковых дробей со знаменателем a,b,c (1<a,b,c<= 1200) Даше необходимо найти наименьший общий знаменатель, который может быть большим, но не больше 2147483647. Помогите ей, составить программу, которая будет находить его. ваша программа должна запросить три натуральных числа - знаменатели трех дробей (1<a,b,c<= 1200) Вычислить и вывести на экран наименьший общий знаменатель пример знаменатели 4, 6, 18 наименьший общий знаменатель 36

Решение задачи: «Вычислить и вывести наименьший общий знаменатель трех дробей»

Листинг программы

DECLARE FUNCTION NOD! (a!, b!)
CLS
INPUT "A, B, C = "; a, b, c
 
d = a * b / NOD(a, b)
d = c * d / NOD(c, d)
 
PRINT "NOK ="; d
END
 
FUNCTION NOD (a, b)
   IF a = 0 OR b = 0 THEN
      NOD = a + b
   ELSE
      IF a > b THEN
         NOD = NOD(a MOD b, b)
      ELSE
         NOD = NOD(a, b MOD a)
      END IF
   END IF
END FUNCTION

Объяснение кода листинга программы

Предположительно данный код на языке QBasic вычисляет наименьшее общее кратное (НОК) трех дробей. Список действий:

Ввод значений переменных a, b, c с помощью функции INPUT.
Вычисление значения переменной d путем умножения a на b и деления на результат функции NOD(a, b).
Вычисление значения переменной d путем умножения c на d и деления на результат функции NOD(c, d).
Вывод значения переменной d с помощью функции PRINT. Функция NOD(a, b) вычисляет НОД двух целых чисел a и b. Если одно из чисел равно нулю, то НОД равен сумме этих чисел. В противном случае, если a больше b, то НОД равен результату функции NOD, примененной к остатку от деления a на b и b. Если же a меньше b, то НОД равен результату функции NOD, примененной к a и остатку от деления b на a. Таким образом, данный код вычисляет НОК трех дробей, используя алгоритм Евклида для вычисления НОД.