Вычислить сложную функцию

uses crt;
 
const a = 0.5;
      x = 3.4;
      b = 165e-5;
 
var y: real;
 
{--------------------------------------------------------}
function power(a,n: real): real;
begin
power := exp(n*ln(abs(a)));
end;
{--------------------------------------------------------}
function log(a,b: real): real;
begin
log := ln(b) / ln(a);
end;
{--------------------------------------------------------}
function arccos(x: real): real;
begin
arccos := 2*arctan(sqrt(abs((1 - x)/(1 + x))));
end;
{--------------------------------------------------------}
 
 
begin clrscr;
y := log(10,sin(log(3,x+1)) + 1.5*power(x,3)*exp(-a*x) + power(sqr(x) + 4.5e-5,1/4)) /
     (sqrt(abs(cos(x)))*power(x,5) - 6*power(10,2.3) - power(abs(a - x),1/5) + arccos(b));
writeln('y = ',y:0:4);
readkey; end.