Найти произведение натуральных нечетных чисел от n1 до n2 - Pascal ABC

Формулировка задачи:

Найти произведение натуральных нечетных чисел от n1 до n2.

Решение задачи: «Найти произведение натуральных нечетных чисел от n1 до n2»

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

var p: Real; n1, n2: Integer;
begin
  Write('n1 n2: '); ReadLn(n1,n2);
  p:=1; n1:=n1 or 1;
  while n1<=n2 do begin
    p:=p*n1; Inc(n1,2);
  end;
  WriteLn(p:0:0);
end.

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

В данном коде происходит следующее:

Объявляются три переменные: p (тип Real), n1 (тип Integer) и n2 (тип Integer).
Выводится сообщение «n1 n2: », после чего считываются значения переменных n1 и n2 с помощью функции ReadLn.
Переменная p инициализируется значением 1.
Переменная n1 инициализируется значением n1 или 1 (полученным из ввода пользователя).
Запускается цикл while, который выполняется до тех пор, пока значение переменной n1 не превысит значение переменной n2.
Внутри цикла переменная p инициализируется произведением n1 и переменной p.
Переменная n1 увеличивается на 2 (получится n1+2).
После выхода из цикла значение переменной p выводится на экран с помощью функции WriteLn.
Конец программы.