Составьте программу ряда ((f1*f4)/2!!)+((f2*f5)/3!!)+. — Pascal(Паскаль)

uses crt;
var n,i,f1,f2,a1,b1,a2,b2:integer;
    s,t,t1,t2:real;
begin
clrscr;
repeat
write('Введите n>1 n=');
readln(n);
until n>1;
s:=0;
t1:=1;t2:=1;
a1:=0;b1:=1;
a2:=2;b2:=3;
for i:=1 to n do
 begin
  f1:=a1+b1;
  a1:=b1;
  b1:=f1;
  f2:=a2+b2;
  a2:=b2;
  b2:=f2;
  t:=f1*f2;
  if odd(i) then
   begin
    t1:=t1/(i+1);
    t:=t*t1;
   end
  else
    begin
     t2:=t2/(i+1);
     t:=t*t2;
    end;
  s:=s+t;
 end;
write('S=',s:0:4);
readln
end.