Для удобства степень и подкоренное выражение вынесены в отдельные выражения, иначе получаются километровые формулы.

Программа, PascalABC.NET 3.3.5:

begin 

  var (x, a) := ReadReal2();

  var expr1 := abs(x - a * arctan(2 * (a * x - 0.441)));

  var expr2 := (a ** 5 - sqrt(ln(x)))/cos(abs(a * x));

  print(exp(expr1) - sqrt(expr2));

end.

Пример ввода: 1.6 0.98

Пример вывода: -7.23687978654698 

Блок-схема во вложении.