Вычисление суммы бесконечного ряда

[TheFaster]

Вычислить на ЭВМ значение суммы членов ряда с заданной точностью 8.На печать вывести значение суммы и число членов ряда, вошедших в сумму
точность 0,00005

program n3;
var
s: real;
i, n, fk: integer;
begin
fk:=1;
s:=sqrt(2)/2;
writeln ('vvedite n');
readln (n);
for i:= 1 to n do begin
fk:= fk*i*2*(i*2-1);
s:=s+exp(ln(pi/6)*(2*i))/fk
end;
writeln('summa=' ,s:1:8);
end.

помогите отредактировать факториал, он неправильно считает

[илья001]

Тебе помогут конечно настоящие программисты я могу лишь дать подпрограмму вычисления факториала

function Fact (n:integer);
var i:integer;
begin
Result:=1;
for i:=1 to n do Result:=Result*i;
end;

или вот такую

 function Fact(n:integer);
begin
if n=1 then Result:=1
else Result:Fact(n-1)*n;
end;

может как прикрутишь ко своему коду. Кстати оформи код свой программы правильно: заключи его между: [СОDE]здесь твой код должен быть[/СОDE].