Помогите задать факториал в паскале: 3! 5! 7! ....
var i, n: longint;ans: real;
begin readln(n); ans := 1; for i := 1 to n do ans := ans * i; writeln(ans); end.