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

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

Program z_number5;

Uses PROGRAM6220.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  pr : integer;
  i  : integer;
Begin
  clrscr; {* Очистка экрана *}
  pr := 1;
  i := 11; {Первое двузначное нечетное число}
  Repeat   pr := pr * i;
    i := i + 2;
  Until (i > 100);
  writeln('Произведение двузначных нечетных чисел ', pr);
  readln; {* Ждем нажатия Enter *}
End.