Создать программу на Паскале .номер 3 срочно

Question

Создать программу на Паскале .номер 3 срочно

---

Answer 1

Var n,i:integer; f:longint;
begin
write('n = ');
readln(n);
f:=1;
if n mod 2=0
 then for i:=1 to n div 2 do f:=f*(2*i)
 else for i:=1 to (n+1) div 2 do f:=f*(2*i-1);
writeln(n,'!! = ',f);
end.

Пример:
n = 8
8!! = 384