Дано натуральное число n. Вычислить произведение первых n сомножителей

Использовать оператор цикла с параметром. Массивы не использовать.
var ch,n,i:integer; {pr-произведение, ch-числитель}
pr:real;
BEGIN
readln(n);
pr:=1;
ch:=1;
for i:=1 to n do
Begin
pr:=pr*(ch/(2*i));
ch=ch+2;
End;
END.
Не совсем уверен, что это правильное решение.