Наименьшее общее кратное - Pascal

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

Надо cocтaвить прoцедyрy для нaxoждения нaименьшегo oбщегo крaтнoгo двyx нaтyрaльныx чиcел. , где нoд(a,в) нaxoдят метoдoм Евклидa. В ocнoвнoй прoгрaмме ввеcти три знaчения a,b,c, нaйти НoК для coчетaний (a,b), (b,c), (a,c). Вcе резyльтaты вывеcти нa экрaн.

Решение задачи: «Наименьшее общее кратное»

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

Var a,b,c,t:integer;
Procedure NoK(a,b:integer;Var nk:integer);
Begin
    nk:=a*b;
    While a<>b do
     if a>b then a:=a-b
      else b:=b-a;
    nk:=t div a
End;
Begin
    write('a,b,c: ');readln(a,b,c);
    Nok(a,b,t);
    writeln('NoK(a,b) = ',t);
    Nok(b,c,t);
    writeln('NoK(b,c) = ',t);
    Nok(a,c,t);
    writeln('NoK(a,c) = ',t);
    readln;
End.

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

Объявлены четыре переменные: a, b, c и t типа integer.
Определена процедура NoK с тремя параметрами a, b и Var nk типа integer.
Внутри процедуры NoK происходит вычисление произведения a и b и присваивание его переменной nk.
Затем в цикле while выполняется сравнение a и b и если a больше b, то a уменьшается на b, иначе b уменьшается на a.
После выравнивания a и b, выполняется вычисление их НОК и присваивание переменной t.
По завершении процедуры NoK, значение переменной t используется в качестве делителя при вычислении НОК для других пар чисел.
В основной части программы пользователю предлагается ввести значения a, b и c.
Значения a, b и c передаются в качестве аргументов в процедуру NoK, а результат сохраняется в переменной t.
Выводится сообщение с результатом вычисления НОК для первых двух чисел.
Значения a и c передаются в качестве аргументов в процедуру NoK, а результат сохраняется в переменной t.
Выводится сообщение с результатом вычисления НОК для вторых двух чисел.
Значения b и c передаются в качестве аргументов в процедуру NoK, а результат сохраняется в переменной t.
Выводится сообщение с результатом вычисления НОК для третьих двух чисел.
Значения a и b передаются в качестве аргументов в процедуру NoK, а результат сохраняется в переменной t.
Выводится сообщение с результатом вычисления НОК для четвертых двух чисел.
Программа ожидает ввода пользователя для завершения работы.
Значения a, b и c считываются из ввода пользователя.
Значения a, b и c передаются в качестве аргументов в процедуру NoK, а результат сохраняется в переменной t.
Выводится сообщение с результатом вычисления НОК для пятых двух чисел.
Программа завершается.