Думаю, что Julia не против, если я помогу :-).
Код
program Project1;
const
  x=2828.4E-3;
  y=4.1093;
  z=-7*sqrt(pi)/9.5;

var
  a,b,q:real;

begin
//x^y=exp(y*ln(x));
//Arccos(z)=-i*Ln(z+sqrt(z^2-1));
a:=(1+y)*(x*exp(1/2.5*ln(x+3))+(y/(x*x+4)))/(exp(-x-2)+1/(x*x+4));
b:=(1+cos(a+2))/(x*x*x*x/2+sqr(sin(z)));
q:=ln(abs(a+sqrt(b)));
q:=ln(q+sqrt(q*q-1));
writeln('-i *',q);
end.