{* Задача 181 *}

Unit ZADACH181;
Interface
Implementation
Begin
 writeln('Даны натуральное число n, действительные числа а1,..., аn. Вычислить обратную величину произведения тех членов ai последова- тельности а1,.. ., аn, для которых выполнено i+1');
End.

Program zadach181;

Uses zadach181.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 10;
  / / количество элементов в массиве
Var {* Объявление переменных *}
  a                                  : Array [1..n] Of Real;
  / / сам массив    i                : 1..n;
  / / счетчик цикла    fact          : Integer;
  / / переменная под факториал    oP : Real;
Begin
  fact := 1;
  oP := 1;
  writeln('Vvedite ', n, ' chisel:');
  For i := 3 To n Do {* Переменная i увеличивается с 3 до n *}
  Begin
    fact := fact * i;
    read(a[i]);
    If (a[i] > (i + 1))And(a[i] < fact) Then
      oP := oP * (1 / a[i]);
  End;
  writeln('');
  write('Obratnoe proizvedenie ravno = ', oP : 4 : 2);
  readln; {* Ждем подтверждения пользователя *}
End.