Ошибка в коде PascalABC

[wolsenpak]

Добрый день. Вроде всё ввёл правильно, но вывод у меня бесконечность, а должно быть конкретное число. Где может быть ошибка?

Задание:
b=e^(-k*d)/(k*d*z+2*(z^3));
k=sin(d)/cos(z);
z=tg(d/d+1);
d=0.15

КОД:

var
k, z, d, b: real;
begin
k := sin(d) / cos(z);
z := sin(d / (d + 1)) / cos(d / (d + 1));
d := 0.15;
b := (Exp(-(k * d))) / ((k * d * z) + (2 * (Exp(3*ln(z)))));
write(b);
end.

[Аватар]

1. А значение для d кто будет присваивать перед обращением к нему, а не черте где?
2. Почему k перед z вычисляется?
3. ln(z) - будут большущие проблемы, если z не положительное
4. Не исключено и деление на ноль. Проверять надо

[Stilet]

Порядок попутал:

d := 0.15;
z := sin(d / (d + 1)) / cos(d / (d + 1));
k := sin(d) / cos(z);
b := (Exp(-(k * d))) / ((k * d * z) + (2 * (Exp(3*ln(z)))));
write(b);