Программа

PROGRAM Sum;
  Var S:real;                      { Сумма }
      Addend:real;                 { Слагаемое }
      X:real;                      { Аргумент }
      i:integer;                   { Счетчик цикла }
BEGIN
  Write('Введите X ');             { Вывод приглашения }
  ReadLn(X);                       { Ввод X }
  S:=0;                            { Сброс суммы }
  Addend:=1;                       { Сброс слагаемого }
  for i:=1 to 10 do                { Цикл набора суммы }
  begin
    Addend:=Addend*(X*X-1)/(i+1);    { Набор слагаемого }
    S:=S+Addend                      { Набор суммы }
  end;
  WriteLn('S=',S);                 { Вывод суммы }
END.