помогите, пожаалуйста!

Даны натуральные числа A и B. Найти их наименьшее общее кратное, определив функцию для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида.

РЕШИТЬ В ПАСКАЛЕ БЕЗ ВСЯКИХ СЛОЖНЫХ ПРОГРАММНЫХ ШТУЧЕК, Т.Е НА УРОВНЕ 10 КЛАССА! 

спасибо:3*

 Формула нахождения НОК двух чисел  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.