Для удобства степень и подкоренное выражение вынесены в отдельные выражения, иначе получаются километровые формулы.
Программа, 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
Блок-схема во вложении.