Нахождение НАИМЕНЬШЕГО общего кратного

[trnext]

Написал программу нахождения общего кратного.
Что нужно добавить чтобы находил НАИМЕНЬШЕЕ общее кратное.

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
procedure Button1Click(Sender: TObject);

private

    { Private declarations }

public

    { Public declarations }

  end;


var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
 var
  p, n1, m1, n, m, R, a: LongWord;
begin
   n:= StrToInt(edit1.text);
   m:= StrToInt(edit2.Text);
  if (n = 0) or (m = 0) then
    R:= 0
  else
  begin
    if m < n then
    begin
      n1 := m;
      m1 := n;
    end
    else
    begin
      n1 := n;
      m1 := m;
    end;
    while n1 > 0 do
    begin
      p := m1 mod n1;
      m1 := n1;
      n1 := p;
    end;
    R := m1;
    a :=n*m div R;
    Edit3.text:=IntToStr(a);
  end;
end;
end.

[Sna1L]

НОК(a,b) = ab/НОД(a,b)
НОД можно найти с помощью алгоритма Евклида

[firephenix]

Евклид (нахождение НОД):

while (a<>b) do begin
  if (a>b) then a:=a-b
  else b:=b-a;
end;