Составление цикла, вычислить сумму Опции

[Serlos]

который чос решаю но никак не выходит
Задачка такая
вычислить сумму s=1/3+1/(3+2)+1/(3^2+2)+1/(3^3+2)+..+1/(3^10+2)
используя for и оператор go to
вот пробывал но невыходит

Program dgfsd;
Var
S:real;
p,i:integer;
begin
p:=0;
s:=0;
for i:=1 to 10 do
begin
 p:=p+i;
 s:=s+1/(p+2);
end;
writeln('s=',s:8:2);
readln;
end.

.