Информатика(pascal). составить программу нахождения наименьшего общего кратного(нок) двух чисел m и n, используя формулу n*m=нод(n,m)* нок (n,m).

Uses crt; var n,m,p : real; nod,nok : real; begin clrscr; write('n='); readln(a); write('j='); readln(b); p: =n*m; while n< > m do if n> m then n: =n-m else m: =m-a; nod: =n; nok: =p/nod; writeln('нод: ',n); write('нок: ',nok); readln; end.