Вычисление ряда

[Ronk]

Помогите, нужен код вывода таблицы с 5 столбцами

[Daramant]

необходимо задать точность d и:
Сумму ряда считать так:

d := <точность>;
n := 1;
x := <значение>;
xn := x;
v := xn;
s := 0;

while abs(v) > d do begin
  s := s + v;
  xn := xn * x * x;
  n := n + 2;
  v := xn / n;
end;
s := 2 * s;

Остальное сам.