pascal.нахождение суммы Опции

[Allise1]

кто-нибудь может помочь?
найти сумму: х+(x^3)/3+(x^5)/5...+(x^15)/15

program r1;

var i:integer;
p,s,x:real;
begin readln(x);
s:=x;
p:=x*x;
i:=3;
while i<=15 do
begin
p:=p*x;
s:=s+p/i;
i:=i+2;
end;
writeln(s:7:2);end.
не могу сделать так, чтоб после x^3 шло x^5 (

[Krjuger]

p:=p*x*x;