Дано натуральное число n. Вычислить у=1*3*5…

Program n1; Uses CRT; Var i,n,m: integer; beginClrScr; writeln ('Vvedite n'); readln (n); i: =1; m: =1; while i<2*n-1 do begin i: =i+2; m: =m*i; end; writeln (m); readlnend.