Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу

Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу: А*В = НОД(А, В)*НОК(А, В).

Program zad_3_nica;
var A, B, C: real;
begin
   write ('Введите A: ');
   read (A);
   write ('Введите B: ');
   read (B);
   C:=A*B;
   while (A<>B)
   do begin
      if A>B
      then A:=A-B
      else B:=B-A
   end;
   C:=C/A;
   writeln ('НОК(A,B)=', C)
end.