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

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