pascal
var y,b,x,p:real;
const a=2.7;
begin
x:=3/(sqr(a)+1);
p:=ln(abs(sqr(a)-sqr(x)));
b:=p*sqrt(3*a)+exp(a*x);
y:=-2*cos(a*b)+(1-sqr(arctan(p*a)))/(sin(p*x)-sqr(b));
writeln(y);
end.
pascal
var y,b,x,p:real;
const a=2.7;
begin
x:=3/(sqr(a)+1);
p:=ln(abs(sqr(a)-sqr(x)));
b:=p*sqrt(3*a)+exp(a*x);
y:=-2*cos(a*b)+(1-sqr(arctan(p*a)))/(sin(p*x)-sqr(b));
writeln(y);
end.