нахождение НОК,немного недоработанная прога

[llatpoh]

вводятся 3 числа
нужно у второго и третьего найти НОК
и если первое%НОК равно нулю вывести первое\НОК-1 иначе первое\НОК

var
l,a,b:Real;aa,bb,ll,a1,x:int64;
begin
Readln(l,a,b);aa:=round(a*1000000000);bb:=round(b*1000000000);ll:=round(l*1000000000);{заменяю на целые числа}
if(aa<bb)then
begin
x:=aa;
aa:=bb;
bb:=x;
end;{если аа больше бб меняю местами их}

a1:=aa;
while((a1 mod bb)<>0)and(a1<ll))do
begin
a1:=a1+aa;
end;{ищу НОК}

if(ll mod a1<>0) then Writeln(ll div a1) else
if(ll mod a1=0) then writeln (ll div a1 -1) else Writeln('0');
end.

невсегда работает
есть идеи как улучшить?

[FullVenic]

найди свойства НОК с применением мод и див, сейчас не напишу времени нету, но опдсказку я дал