Сумма чисел х возведённых в степень заданную числами

const
  nmax = 100;
  
var
  n, i: integer;
  x, t, s: integer;
  a: array[1..nmax] of integer;
  
begin
  write('n=');
  readln(n);
  write('x='); 
  readln(x); 
  t := 1; //промежуточный результат (x в степени n)
  s := 0; //общая сумма
  for i := 1 to n do // цикл n раз
  begin
    t := t * x;//степень x
    s := s + t; //вычисление суммы
    a[i] := s; //запись в массив
    write(a[i], ' ');
  end;
  writeln(#13#10, 'Сумма=', s);
end.

const
  csize=9;
 
type
  tarray=array [1..csize] of extended;
 
var
  i:byte;
  sum,x:extended;
  arr:tarray;
 
begin
  write('введите число X : ');
  readln(x);
  sum:=0;
  For i:=0 to csize do begin
    sum:=sum+exp(i*ln(x));
    arr[i+1]:=sum;
  end;
  writeln('результаты суммирования : ');
  for i:=1 to csize+1 do
    write(round(arr[i]),' ');
  writeln;
  write('полученная сумма : ',round(sum));
  readln;
end.