Составление программ, предназначенных для нахождения суммы ряда(3)

uses crt;
var s:real; n,i,m,c:integer;
f:array [1..100] of integer;
function fact1(n:integer):integer;
     begin
          if n=0 then
             fact1:=1
          else
              fact1:=fact1(n-1)*n;
     end;
function fact2(n:integer):integer;
     begin
          if (odd(n)=true) and (n=1) then
             fact2:=1
          else if (odd(n)=false) and (n=0) then
             fact2:=1
          else
              fact2:=fact2(n-2)*n;
     end;
begin
     clrscr;
     write('Ââåäèòå îãðàíè÷åíèå: ');
     read(m);
     f[1]:=1; f[2]:=1; s:=0; c:=0; n:=6;
     for i:=1 to m do
         begin
           if i>2 then
              f[i]:=f[i-1]+f[i-2];
           if i mod 3=0 then
              begin
                   s:=s+(f[i]/(fact1(n))*(fact2(i+c)));
                   n:=n+2;
                   inc(c);
              end;
           end;
     writeln('Ðåçóëüòàò: ',s);
end.