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

Var a,n,i:integer;BeginWriteln('введи n');Readln(n);a:=1;For i:=1 to n do beginA:=a*i;Inc(i);End;

writeln('Ответ: ');Writeln(a);End.