{* Задача 417 *}

Unit ZADACH417;
Interface
Implementation
Begin
 writeln('Составить программу вычисления числового ряда для известного числа членов ряда N. Y=(7+35/1)(8-3-4/2)(9+33/3)…. ');
End.

Program zadach417;

Uses zadach417.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  i  : integer;
  j  : integer;
  zn : integer;
  n  : integer;
  s  : real;
Begin
  writeln; {* Вывод пустой строки *}
  writeln('vvedite kolichestvo elementov ryada');
  write('N=');
  readln(n);
  s := 1;
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    zn := 1;
    For j := 1 To i + 1 Do {* Увеличиваем j от 1 до i с шагом 1 *}
    Begin
      zn := zn * ( - 1);
    End;
    s := s * ((6 + i) + exp((zn * (6 - i)) * ln(3)) / i);
  End;
  writeln('s=', s : 4 : 2);
  readln; {* Ждем подтверждения пользователя *}
End.