Составьте программу по нахождении суммы ряда [tex]x^{3}[/tex] + [tex]x^{5}[/tex] + ... + [tex]x^{n}[/tex] не используя функцию вычисления степени (Паскаль ABC)

program n_1;

var n, i: int64; x, y, s: double;

begin

   read(x, n);

   n:=(n-3) div 2;

   s:=0; y:=x;

   for i:=0 to n do begin

       y:=y*x*x;

       s:=s+y;

   end;

   writeln(s:0:5);

end.