Напишите программу,которая по заданному натуральному значению n и вещественному значению x вычислит сумму: s=x+x2+x3++xn

Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
    S:=S+power(X,N);
Write('S = ',S)
End.