Минуточку внимания!, Помогите исправить простенькую програмку. Опции

[Незнайка 013]

Задачка следующая: Дано натуральное число n и действительное число a. Получить последовательность В1,....,Вn, где при i=1,2,...,n значение Вi равно а в степени i.
program one;
var
n,i :integer; x,a: reai;
begin
writeln ('введите числа n и a');
write ('n='); readln (n); write ('a='); readln (a);
for i:=1 to n do
begin
a:=exp (i*ln(a)); x:=a;
end;
write (x[i]:6:2,' ');
end.
Что я неправильно сделал? помогите пожалста...

[Странник]

Ты в пинципе все сделал, чтобы получить последовательность чисел тебе нужно было описать массив из вещественных чисел. Смотри код.

program one;
uses
crt;
var
n,i:integer;
a,x:real;
b:array [1..100] of real;  //чтобы получить последовательность чисел нужно использовать массивы

begin
 clrscr;
  writeln ('Ввести числа n и a');
   write ('n='); readln (n); write ('a='); readln (a);
  for i:=1 to n do
   begin
    x:=exp(i*ln(a)); 
    
    b[i]:=x;               // записываешь результат вычисления в массив
    
    write (b[i]:6:2,' ');  //выводишь массив в цикле
   end;
 readln;
end.