Найти произведение положительных нечетных чисел, меньших k. k<30 - Free Pascal

привет всем, помогите написать программу. найти произведение положительных нечетных чисел, меньших k. k<30

Листинг программы

Var i,k,p:integer;
Begin
Write('K=');
Readln(k);
i:=1;
p:=1;
While i<k do
 begin
  p:=p*i;
  i:=i+2;
 end;
Writeln('P=',p);
Readln;
End.

Объяснение кода листинга программы

Объявлены три переменные: i, k, p типа integer (целое число).
Пользователю предлагается ввести значение переменной k с помощью функции Readln().
Переменная i инициализируется значением 1.
Переменная p инициализируется значением 1.
Запускается цикл While, который выполняется до тех пор, пока значение переменной i меньше значения переменной k.
Внутри цикла значение переменной p умножается на значение переменной i.
Значение переменной i увеличивается на 2 после каждой итерации цикла.
По завершении цикла выводится значение переменной p с помощью функции Writeln().
Программа ожидает ввода с помощью функции Readln(), чтобы пользователь мог увидеть результат.
Программа завершается.