{* Задача 381 *}

Unit ZADACH381;
Interface
Implementation
Begin
 writeln('Вычислить сумму:

');
End.

Program lab4;

Uses zadach381.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  x : real;
  S : real;
  a : real;
  k : integer;
  N : integer;
Begin
  writeln('ввести x, N');
  readln(x, N);
  S := 0;
  a := 1;
  For k := 1to N Do {* Цикл для k => [1 .. N] *}
  Begin
    a := a * (x * x-1) / (k + 1);
    S := S + a
  End;
  writeln('сумма равна', S : 7:4);
End.