Дано натуральное число n и действительные числа b1.b2 . bn. Вычислить произведение тех чисел bk последовательности b1

program Project1;
 
const
  maxelem = 100;
 
function fact(nn:integer):double;
  {Функция для вычисления факториала}
  begin
    if nn = 1
    then
      fact:= 1
    else
      fact:= fact(nn-1)*nn;
  end;
 
 
var
  b: array [1..maxelem] of real; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i,k: integer; { Вспомогательные переменные для организации циклов.}
  mult: real; { Переменная для хранения значения произведения}
begin
  write('Введите значение максимального количества вводимых элементов массива: ');
  Readln(n);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(b[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(b[i]:5:1);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln;
  writeln;
  mult:= 1;
  i:= 0;
  for k:= 1 to n do
    begin
      if (b[k] > k + 1) and (b[k] < fact(k)) then
        begin
          mult:= mult* b[k];
          writeln('k + 1 = ',k+1,'; b[k] = ',b[k]:0:1,'; fact(k) = ', fact(k):0:0);
          inc(i);
        end;
    end;
  writeln;
  if i = 0 then
    writeln('Элементов с заданными значениями не обнаружено.')
  else
    writeln('Обнаружено ',i,' элементов, произведение которых равно: ', mult:0:2);
  Readln;
end.