НОК

[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));

Что не так?
:confused:

[J-Fobos]

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