Наименьшее общее кратное (НОК) двух натуральных чисел – это наименьшее число, которое делится нацело на оба ис - Pascal

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

Здравствуйте,помогите пожалуйста написать код,спасибо.Наименьшее общее кратное (НОК) двух натуральных чисел – это наименьшее число, которое делится нацело на оба исходных числа. Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию. Входные данные Входная строка содержит два натуральных числа, разделённые пробелом – a и b . Выходные данные Программа должна вывести одно натуральное число: НОК заданных чисел. Примеры входные данные 14 21 выходные данные 42

Решение задачи: «Наименьшее общее кратное (НОК) двух натуральных чисел – это наименьшее число, которое делится нацело на оба ис»

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

var m,n,pr:word;
begin
read(m,n);
pr:=m*n;
while m<>n do
 begin
  if m>n then m:=m-n
  else n:=n-m
 end;
write(pr div m)
end.

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

Создание переменных:
- m: число 1 типа word (целочисленный тип данных)
- n: число 2 типа word
- pr: произведение чисел m и n типа word
Присваивание значений переменным:
- m и n записываются с клавиатуры
Вычисление произведения чисел:
- pr присваивается значение, равное произведению m и n
Цикл while:
- Пока m не равно n выполняется следующее:
  - Если m больше n, то m уменьшается на n
  - В противном случае n уменьшается на m
Вывод результата:
- Выводится результат деления pr на m (поскольку m и n стали равны, они оба являются делителями исходного произведения)