проблема с вычислением логарифма Опции

[Forest]

при исходных данных:
X = -2,48
Y = -3,79
Z = 12,05

выражение я прикрепил в виде рисунка,а вот собственно и код:

program Lab1;
 uses crt;
 var
   x,y,z,b:real;
 begin
   x:=-2.48;
   y:=-3.79;
   z:=12.05;
   b:=sqr((exp(exp((1/3)*ln(abs(y))))+exp(-1*exp((1/3)*ln(abs(y)))))/2)+
   exp(3*ln((exp(sqrt(abs(x)))-exp(-sqrt(abs(x))))/2))-exp(1);
   writeln('b=',b:10:5);
   readln;
 end.

оно то работает,только препод говорит что ответ другой получается,около 5..у меня подозрение что я неправильно вычисляю натуральный логарифм от y
но другого способа посчитать я не знаю..
З.ы. ch и sh Это гиперболические синус и косинус соответственно.

[мисс_граффити]

Гости не могут прикреплять файлы.
Так что, видимо, придется зарегистрироваться и выложить рисунок.