Помогите, пожаалуйста! Даны натуральные числа A и B. Найти их наименьшее общее…

Формула нахождения НОК двух чисел A и B 1) НОК=(A*B) / НОД (A,B) Program FindNOK; Uses Crt; var n,m,res,nok: integer; function evklid (a, b: longint): longint; begin while (a <> 0) and (b <> 0) do if a >=b then a: =a mod b else b: =b mod a; evklid: =a+b; end; begin clrscr; writeln ('Введите A и B'); readln (M, N); res: =(Evklid (n,m); nok: =(m*n) div res; writeln ('NOK=',nok); readkey; end.