Паскаль ABC
помогите пожалуйста 19 задание 3-я формула

Var  x, y: real;begin  readln(x, y);  writeln('a = ', (3 + power(e, y - 1)) / (1 + sqr(x) * abs(y - tan(x))));end.