Вычислить произведение нечетных чисел от 1 до n. в паскале как правильно составить всё?

program proizvedenie;var i, n, k: Integer;begink:= 1;writeln('Введите n:');readln(n);for i:= 1 to ndo if(i mod 2 <> 0) then k:= k*i;writeln(k);end.//Если PascalABC.NET, то можно написать:program proizvedenie;beginvar k: Integer := 1;var n:= readInteger('Введите n:');for i:= 1 to ndo if(i.isOdd()) then k*= i;k.println;end.