{* Задача 415 *}

Unit ZADACH415;
Interface
Implementation
Begin
 writeln('Составить программу вычисления и выдачи на печать суммы (произведения) N элементов бесконечного ряда. Оформить проверку задания. Y=(-512)*256*(-128)*64…… ');
End.

Program zadach415;

Uses zadach415.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 * (-zn) * (exp((10 - i) * ln(2))); {вводим формулу}
  End;
  writeln('s=', s : 4:2);
  readln; {* Ждем подтверждения пользователя *}
End.