По вещественным числам e>0 и t вычислить величину
((1-(cos(t/4))^4)^1/4)+((1-arctag(t/200))^1/5)*(((1-/(3+t^2))^1/9).
Корни вычислить с точностью e , используя ряд Тейлора
(1+x)^a=1+ax+(a(a-1)/2!)*(x^2)+(a(a-1)(a-2)/3!)*(x^3)+... (|x|<=1, a>0).
Написать функцию для вычисления корня.

function summa(x: real): real;
const e = 0.0001; //точность
var s,a,l,g: real; //сумма, член ряда
n,i: integer; //номер члена ряда
begin
g:=2;
s := 1+a*l;
n := 1; //номер первого члена ряда
repeat
for i:=1 to n do
begin
g:=g*n;
end;
s:= s+(s*(a*(a-(i))))/g;
inc(i) //следующее
until abs(a) < e;
summa := s
end;
var a, y, t: real;
begin //основная программа
write('a = '); //ввод a
readln(a);
begin //вычисляем
y:=exp(ln(1-arctan(t/200))*(1/5))+exp(ln(1-sqr(sqr(cos(t/4))))*(1/4))*exp(ln(1-t/(3+sqr(2)))*(1/9));
writeln('f(a) = ', y); //выводим результат
end;
readln
end.
вот нароботки