Функцию в паскале,которая вычисляет наименьшее общее кратное двух чисел

Напишу лучше полностью, а то есть уникумы, которые любят отмечать "неполное решение".
var m,n,a,b:integer; nok:real;
begin
  readln(m,n);
  a:=m;
  b:=n;
while m<>n do
  if m>n then m:=m-n
    else n:=n-m;
  nok:=a*b/m;
  writeln(nok);
end.