Question

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

Answer 1

Var
  x, y: real;

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