Вычисление функции по формуле / L

uses crt;
var
b,z,q,d,t:real;
Begin
clrscr;
writeln('„®Ўал© ¤Ґ­м, нв® Їа®Ја ¬¬  ¤«п аҐиҐ­Ёп § ¤ зЁ ь 8');
writeln('‚ўҐ¤ЁвҐ ЇҐаҐ¬Ґ­­го z:');
readln(z);
writeln('‚ўҐ¤ЁвҐ ЇҐаҐ¬Ґ­­го q:');
readln(q);
writeln('‚ўҐ¤ЁвҐ ЇҐаҐ¬Ґ­­го b:');
readln(b);
d:=(z*z+z+1)/(sin(q/2)*sin(q/2)*sin(q/2)*sin(q/2)+abs(z)+pi);
x:=d*exp(-b)/2;
t:=ln(abs(q)+0.33)/ln(10)*arctan(x/sqrt(1-x*x));
writeln('------------------------');
writeln('| ЏҐаҐ¬Ґ­­ п d |',d:5:2,' |');
writeln('| ЏҐаҐ¬Ґ­­ п t |',t:5:2,' |');
writeln('------------------------');
readkey;
end.