Последовательность

[ArchimonD]

Помогите решить задачку плз. В последовательности из 5 чисел возвести каждое число в степень, равную его номеру. Вывести новую последовательность в строку.

[Mad_Cat]

for i:=1 to 5 do begin
b[i]:=1;
for j:=1 to i do
b[i]:=b[i]*a[i];
Write (b[i] , '  ');
end;