Составить программу вычисления суммы членов последовательности S = ​​X + X2 + X3 + X4 + ... + XN,( N, X -заданое.) (программа Паскаль)

Question

Составить программу вычисления суммы членов последовательности S = ​​X + X2 + X3 + X4 + ... + XN,( N, X -заданое.)

Answer 1

var
  n, i: integer;
  x, xn, s: real;
 
begin
  writeln('Введите количество элементов последовательности: ');
  readln(n);
  writeln('Введите число: ');
  readln(x);
  s := 0;
  xn := 1;
  for i := 1 to n do
    begin
      xn := xn * x;
      s := s + xn
    end;
  write('Сумма ', n, ' элементов последовательности: ', s)
end.