Вычислить сумму 20 первых членов последовательности, заданной формулой общего члена

var a:real;i: integer;begina:=0;for i:=1 to 20 doa:=a+((2*k+1)/(4*k*k*k-3));writeln('Сумма 20 первых членов последовательности равна ',s);readln;end.

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println

end.

3.36697051758274