[Помогите!] НОК

[megbum]

while (a*b <> 0) do
   if (a >= b) then
     a := a mod b
   else
     b := b mod a;
i:=(a*b)/(a+b);
ShowMessage(floattostr(i));

Что не так?

[J-Fobos]

Все так. Какой результат нужен?