помогите написать код в pascal для вычисления суммы ряда

// PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal('x=');

 var n := ReadInteger('n=');

 var (k, p, q, s) := (x * x, 1.0, 1.0, 0.0);

 for var i := 1 to n do

 begin

   p *= k;

   q *= 2 * i * (2 * i - 1);

   s += p / q

 end;

 Println('Сумма =', s)

end.