Написать код в pascal для вычисления суммы ряда s=(x^2/2! )+(x^4/4! )+(x^6/6! )++(x^n/n! )

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.