Числа real отнюль не только положительные. Проблема в этом способе в том, что логарифмов отрицательных чисел среди вещественных чисел нет. Поэтому в Turbo Pascal приходилось писать более сложно. Но во всех более современных версиях Pascal есть функция power(основание, степень).