Вычислить произведение целых нечетных чисел от M до N — Pascal(Паскаль)

program z_product;
uses crt;
var Product:longint;
    NumberM, NumberN, CounterI:integer;
begin
 clrscr;
 repeat
  writeln('Введите два числа, первое меньше второго');
  readln(NumberM, NumberN);
 until(NumberM < NumberN);
 
 Product := 1;
for CounterI := NumberM to NumberN do
  if odd(CounterI) then
   Product := Product * CounterI;
   
  writeln('Произведение нечетных чисел от ',NumberM,' до ',NumberN,' равно ',Product);
  readln;
end.