Вычислить значение функции по формуле, произведя предварительные расчеты входящих в нее величин для заданных значений. Язык любой

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.