z_product32.PAS

{* Произведение целых нечетных чисел между данными числами *}

Unit Z_PRODUCT32;
Interface
Implementation
Begin
 writeln('Произведение целых нечетных чисел между данными числами');
End.

Program z_product32;

Uses z_product32.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  Product  : longint;
  NumberM  : integer;
  NumberN  : integer;
  CounterI : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  Repeat    writeln('Введите два числа, первое меньше второго');
    readln(NumberM, NumberN);
  Until (NumberM < NumberN);
  Product := 1;
  For CounterI := NumberM To NumberN Do {* Цикл для CounterI => [NumberM .. NumberN] *}
    If odd(CounterI) Then
      Product := Product * CounterI;
  writeln('Произведение нечетных чисел от ', NumberM, ' до ', NumberN, ' равно ', Product);
  readln; {* Ждем нажатия Enter *}
End.