Задание: Cоставить программу для вычисления значения функции при заданных значениях аргумента. Ввод аргументов осуществить через Const.
y=ln(pi*x^2)/ln3+arccos(7*x)^(1/8) при x=10,05

Вот, что я сделал:

Program Task3;
Const
x=10.05;
Var
y: Real;
Begin
y:=Ln(pi*Sqr(x))/Ln(3)+pi/2-Arctan(Sqrt(Sqrt(Sqrt(7*x)))/Sqrt(1-Sqrt(Sqrt(7*x))));
Writeln(y)
End.


Неработет. Программа нормально работает, только если удалить "1-". Что делать?

Вместо pi/2-Arctan(Sqrt(Sqrt(Sqrt(7*x)))/Sqrt(1-Sqrt(Sqrt(7*x)))) поставил Arctan(Sqrt(1-Sqrt(Sqrt(7*x)))/Sqrt(Sqrt(Sqrt(7*x)))). И всё равно ничего не получается. И опять если убрать "1-", то получается!