Решение уравнения в Pascal

[Navka]

Здравствуйте! Уже битый час бьюсь головой об стол и не могу написать такую формулу:
(|pi|-x+a)/(cos^4(x))

Program Rpz_18;

var x, a, z: real;

begin
   
   writeln('Введите два числа через пробел');
   readln(x,a);
   z:=(abs(pi)-x+a)/(exp(4*(ln(cos))(x)));
   writeln('Ответ=',z);
   
end.

Ошибка: Program1.pas(9) : Нельзя преобразовать тип function(x: real): real к real

Буду благодарна за помощь.

[Вадим Мошев]

напишите так:

z:=(pi - x + a) - sqr(sqr(cos(x)));

Не вижу смысла брать модуль от положительного числа Pi

[Navka]

Огромное спасибо, все заработало!
А про модуль - самой не понятно, но в задании он сказан...

[Вадим Мошев]

Я небольшую ошибку допустил. замените "-" на "/":

(pi - x + a) / sqr(sqr(cos(x)));

[Navka]

Ох, точно, я и не заметила
Еще раз благодарю!

[phomm]

Сообщение от Navka

z:=(abs(pi)-x+a)/(exp(4*(ln(cos))(x)));

Ошибка: Program1.pas(9) : Нельзя преобразовать тип function(x: real): real к real

Ошибка в том, что Вы передаёте в качестве аргумента функции Ln не выражение, вычисляющее косинус числа, а саму функцию косинуса, валидатор ожидает тип выражения real (результат работы функции косинуса) а вы ему даёте саму функцию косинуса, о чём он прямо говорит - человечьим, английским языком.
Исправить стоит так, чтобы (х) было непосредственно у косинуса, аргументом функции => cos(x), тогда всё будет нормально - функции косинуса даётся х она его вычисляет и подставляет результат в виде аргумента функции Ln.
Исправление Вадима Мошева даст правильный ответ, но для случая другого показателя степени, нежели 4 (или подобные небольшие), стоит всё же использовать метод через экспоненту и логарифм (либо функцию Power из модуля Math).