Как правильно в седьмом записать,подскажите

var L,x,y,a,b,d: real;

begin

   write('x = ');

   readln(x);

   write('y = ');

   readln(y);

   write('a = ');

   readln(a);

   write('b = ');

   readln(b);

   write('d = ');

   readln(d);

   L:= (exp(ln(sin(exp(ln((a*pi-y))*8)))*13))/(17.84 + exp(ln(x)*5*(a-b))) - exp(ln((pi/7 + d))*9);

   writeln('L = ',L:0:4)

end.