Задание: 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-". Что делать?

1. (7*10.05)^(1/8) == 1.7. К слову, данная точка не входит в область определения арккосинуса, а поэтому в формуле для арктангенса получаем корень квадратный из отрицательного числа. В этом и ошибка.
Кстати arccos можно считать через arctg и без pi/2: arccos(x)=arctg((1-x^2)^(1/2)/x).