Нельзя преобразовать real к integer - PascalABC.NET

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

В программе, где надо найти НОК из 2 чисел в 8 строке не могу преобразовать real к integer

var
m,n:integer;
function nok(var a,b: integer): integer;
begin
while m<>n do
  if m>n then m:=m-n
    else n:=n-m;
  nok:=a*b/m;
end;
begin
  readln(m,n); 
  a:=m; 
  b:=n;
  writeln(nok);
  end.

Может кто помочь? Дедлайн по информатике

Решение задачи: «Нельзя преобразовать real к integer»

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

nok:=a*b div m;

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

Объявляется переменная nok типа integer
В качестве значения переменной nok используется результат выражения a*b div m, где a и b - это числа с плавающей точкой (тип real), а m - также число с плавающей точкой.
Поскольку в выражении происходит деление чисел с плавающей точкой на число с плавающей точкой, результатом будет число с плавающей точкой.
Однако, присваивание результата выражения переменной типа integer приведет к ошибке, так как числа с плавающей точкой не могут быть приведены к целочисленному типу без потери точности.
Поэтому, в данном коде допущена ошибка, которая приведет к неопределенному поведению программы.