Помогите формулу записать в паскале. lg(|b+x^3-x^4|+7)+(2ctg(3/5))/(cos^2(pi/4)+tg(pi/8))+b^-2a

я вот сделал но что то тут не правильно

Program dz1_2;
const e = 2.74;
var
a,b,c,d,f,k,x,y:real;
begin
write('Введите x=');
readln(x);
a:=exp(ln(sin(e)) * 10);
b:=ln(30)/ln(2);
c:=exp(-2*a)*ln(b);
d:=abs(b+(exp(3*ln(x)))-(exp(4*ln(x))))+7;
k:= ln(d)/ln(10);
f:=2*(sin(0.6)/cos(0.6));
y:=(cos(pi/4))*(cos(pi/4))+(sin(pi/8)/cos(pi/8));
writeln('y=',y:6:1);
end.