Описать функцию, вычисляющую значение "двойного факториала"

function Fact2(a : integer):LongInt;
var Res : longInt;
begin
  Res:=1;
  while a>0 do begin
    REs:=Res*a; a:=a-2;
  end;
  fact2:=Res;
end;
var S:LongInt; i:integer;
begin
  s:=0;
  for i:=1 to 8 do s:=s+Fact2(i);
  readln;
end.

Function Fact2(x: Integer): Longint;
var i,t: Longint;
begin
  If x mod 2=0 Then i:=2
  Else i:=1;
  t:=1;
  While i<=x do
  begin
    t:=t*i;
    i:=i+2;
  end;
  Fact2:=t;
end;
 
Var
  n: Integer;
BEGIN
Write('Vvedite chislo: ');
Readln(n);
Writeln(n,'!!=',Fact2(n));
Readln
END.

function fact2(a:integer):longint;
var Res : longInt;
begin
  Res:=1;
  while a>0 do begin
    REs:=Res*a; a:=a-2;
  end;
  fact2:=Res;
end;
 
var S:LongInt; i:integer;
Begin
  s:=0;
  for i:=1 to 8 do s:=s+Fact2(i);
  writeln('S = ',s);
  readln;
End.

Function Fact2(x: Integer): Longint;
var i,t: Longint;
begin
  If x mod 2=0 Then i:=2
  Else i:=1;
  t:=1;
  While i<=x do
  begin
    t:=t*i;
    i:=i+2;
  end;
  Fact2:=t;
end;
 
Var
  i: Integer;
  s: Longint;
BEGIN
For i:=1 to 8 do
s:=s+Fact2(i);
Writeln(s);
END.