Почему работает через раз delphi

Question

Иногда работает иногда нет, почему так?

user49913 · Accepted Answer

потому что действительный логарифм от отрицательного числа не определён)

viktor_kadyshev_18 · Answer

Как у тебя var после begin работает? Что-то ты тут намухлевал нам...