Информатика (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 nm do

if n>m then n:=n-m

else m:=m-a;

nod:=n;

nok:=p/nod;

writeln ('НОД:', n) ;

write ('НОК:', nok) ;

readln;

end.