Написать двойной факториал pascal. дано натуральное чилсо n. вычислить n. 1*3*5 n, n - нечетн 2*4*6 n,n - четн

Program z;
var n,p,i:integer;
begin
write('n=');
readln(n);
p:=1;
if n mod 2=1 then i:=1 else i:=2;
while i<=n do
begin
p:=p*i;
i:=i+2;
end;
writeln(n,'!!=',p);
end.