Дано натуральное n.Вычислить y=1*3*5x...x(2n-1).Программа в паскаль абс.

var n,k,i:integer;
y:longint;
begin
readln(n);
k:=1;
y:=1;
for i:=1 to n+1 do begin
y:=y*k;
k:=k+2;
end;
writeln(y);
end.