Составить алгоритм и программу для нахождения суммы ряда: s=x^1+x^3+x^5+x^7++x^13

Var
   S,x,St:real;
   A:integer;
Begin
Write('x = ');
ReadLn(x);
St:=x;
S:=St;
Write(St);
For A:= 1 to 6 do
    Begin
    St:=St*x*x;
    S:=S+St;
    Write(' +',St)
    End;
WriteLn(' = ',S);
End.