Дано целое число N (> 0). Найти двойной факториал N: N!! = N*(N*2)*(N*4)*...

Последний сомножитель равен 2, если N — четное, и 1, если N — нечетное). Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и вывести его как вещественное число

program while6;
uses crt;
var 
  f : real;
  n,i : byte;
begin clrscr;
  write('Введите число ');
  readln(n);
  if n mod 2 = 0 then 
    i:=2
  else i:=1;
    f:=1;
  while i<=n do
    begin
      f:=f*i;
      i:=i+2;
    end;
  writeln(n,'!!=',f:1:0);
  readln; 
end.