Вот код самой программы, не пойму в чём ошибка
program kek;
var
x,n:integer;
s:real;
begin
readln(x);
s:=0;
for n:=1 to 10 do begin
s:=s+(exp((n+1)*ln(-1)))*exp((2n+1)*ln(x))/(4*exp(2*ln+1));
end;
writeln(s:5:9);
end.
//otvet.imgsmail.ru/download/52931806_b7febbc5f895be75658b3509f24d8b26_800.png
program kek;
var
x,n:integer;
s:real;
begin
readln(x);
s:=0;
for n:=1 to 10 do begin
s:=s+(exp((n+1)*ln(-1)))*exp((2n+1)*ln(x))/(4*exp(2*ln+1));
end;
writeln(s:5:9);
end.
//otvet.imgsmail.ru/download/52931806_b7febbc5f895be75658b3509f24d8b26_800.png