Выполните сумму 10-ти членов ряда s=x^3/3+x^5/7+x^7/11+x^9/15

Program summa;

var 
s: real; 
i: integer;

begin 
s := 0; 
for i := 1 to 10 do   
s := (Power(i, 3) / 3) + (Power(i, 5) / 7) + (Power(i, 7) / 11) + (Power(i, 9)) / 15;  Writeln('Сумма= ', s);
end.