СРОЧНО!!Напишите функцию в Паскале,которая вычисляет наименьшее общее кратное двух чисел

Напишу лучше полностью, а то есть уникумы, которые любят отмечать "неполное решение".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.