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

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