Кубический корень на Паскале

Проблема в том, что специальной функции для кубического корня в Паскале нет. Поэтому приходится выкручиваться через логарифмы. А логарифмы нравятся не всем. Точнее, почти всем не нравятся. Мы просто воспользуемся формулой:, а также тем, что корень кубический функция не четная и можно минус выносить из под знака корня для того, чтобы не пришлось вычислять логарифм отрицательного числа. Ниже приведен код программы.

program TryRoot3;
function Root3(X: Real): Real;
begin
 if X = 0.0 then
 Root3 := 0.0
 else if X > 0.0 then
 Root3 := Exp(Ln(X) / 3)
 else
 Root3 := -Exp(Ln(-X) / 3)
end;

begin
 WriteLn(Root3(27.0):0:0, ' ', Root3(-8.0):0:0, ' ', Root3(0.0):0:0);
 { 3 -2 0 }
end.