Цыкл

[vebster]

Нужно найти сумму
S=1+x^1+x^2+....+x^n

у меня получается зацыкливание.
я делал так

program a1;
var x,i,S,n:real;
begin
writeln(' enter n and x');
readln(n,x);
S:=1
i:=1;
while i<=n do
S:=S+x;
i:=i+1;
x:=exp(ln(x)*i);
writeln('S=',S);
end.

Помогите решить плз

[domovou]

program a1;
var x,i,S,n:real;
begin
writeln(' enter  x i n');
readln(x,n);
S:=1;
i:=1;
while i<=n do  begin
      x:=exp(ln(x)*i);
      S:=S+x;
      i:=i+1;
      end;
writeln('S=',S:0:3);
end.

[Poma][a]

vebster, Вам не сумму искать надо, а учебник по русскому.