Дано натуральное число n. Вычислите произведение нечетных натуральных чисел от 1 до n. Как должна правильно выглядеть программа??

Var a,n,i:integer; Begin Writeln('введи n'); Readln(n); a:=1; For i:=1 to n do begin A:=a*i; Inc(i); End;writeln('Ответ: '); Writeln(a); End.