Вопрос Как исправить программу для правильного нахождения Наименьшего общего кратного?

[Vip.igrok]

program nod;
var a,b,m,d,n,i:integer;
begin
readln(a,b);
n:=1;
while ((n mod a)<>0) and ((n mod b)<>0) do
begin
n:=n+1;
end;
writeln;
end.