что не так?

[Карина 1578]

С использованием функции процедуры.

uses crt;
var Z: real;
function f(x:real):real;
begin
f:=(1+sqr(cos(x)))/ABS(exp(3*ln(x)-2));
end;
begin
Z:=(f(1)+17*sqrt(f(6)))/(1-exp(15*ln(f(1.1)))*((cos(f(0.01)))/sin(f(0.01))-((3*sqrt((cos(f(1))))))/sin(f(1))/(f(5))));
writeln ('Z:7:3');
end.

[Ezhuk]

f:=(1+sqr(cos(x)))/ABS(exp(3*ln(x))-2 );

Вроде вот тут ошибка.

[Карина 1578]

благодарю))