Giai thừa kép

Cho số n nhập từ bàn phím. Hãy tính n!! . Số này được định nghĩa là
       = 1.3.5…. n, nếu n lẻ
       = 1.2.4…. n, nếu n chẵn.
                                                                 Giải
Var
       i,n: Integer;
       gt: Real;
BEGIN
       Write('Nhap so tu nhien n = '); Readln(n);
       gt:=1;
       If n Mod 2 = 0 Then
           Begin
               For i:=1 to n do
                   If i Mod 2 = 0 Then gt:=gt*i
                   Else gt:=gt;
           End
       Else
           Begin
               For i:=1 to n do
                   If i Mod 2 = 1 Then gt:=gt*i
                   Else gt:=gt;
           End;
       Writeln('=> ',n,'!! = ',gt:18:0);
       Readln;
END.