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

[Незнайка 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.
Что я неправильно сделал? помогите пожалста...

[volvo]

x:=exp(i*ln(a)); 

Это здесь не нужно совершенно. Есть предыдущее значение, из него вычисляй текущее. Лишние вычисления - зло...

О том, что резервировать место для 100 элементов массива, даже если тебе понадобится всего 5 из них, это некорректно - я уже говорил, но как видно, это всем по фигу...

Добавлено через 1 мин.

чтобы получить последовательность чисел тебе нужно было описать массив

Чтобы получить последовательность массив не нужен. Он нужен, чтобы сохранить эту последовательность. Чувствуешь разницу?

[Странник]

Это здесь не нужно совершенно. Есть предыдущее значение, из него вычисляй текущее.

это всмысле вот так

 b[i]:=exp(i*ln(a)); 

или как то по другому?