Помогите пожалуйста с решением задачи на ТурбоПаскале

[Regina]

По информатике задали задачу, а я паскаль не проходила... Учитель сказал что ему нужна рабочая программа, а кто ее писал не важно.

Условие задачи на вложенном файле.
Надо текст программы. Количество переменных 4. ограничение точности расчетов не надо.

Заранее спасибо

[NeshSoft]

что значит Количество переменных 4? Сосчитать только первые четыре члена последовательности чтоли?

[Regina]

Сообщение от NeshSoft

что значит Количество переменных 4? Сосчитать только первые четыре члена последовательности чтоли?

да только 4 первых

[Serge_Bliznykov]

пользуйтесь (только не спрашивайте что там написано и как оно работает...

var
  n, i, k : integer;
  s, x, Element : double;
begin
  WriteLn('Введите сколько элементов ряда считать');
  ReadLn(n);
  WriteLn('Введите X (вещественное число)');
  Readln(x);
  S := X;
  Element := X;
  k:= 0;
  if (n>1) then
    for i:=1 to n do begin
      s := s + (i-1)*2 * Element;
      k:=k+2;
      Element := (-1.0) * Element * x  / (  (k)*(k+1) );
    end;
  WriteLn(s:16:12);
end.

[super-leon]

Тут видно по изображению должно быть Епсилон или енный елемент