Дан целочисленный массив {bi}, i = 1, 2, ... , n. Вычислить S= b1+ b2^2 + ... + bn^n

[ParkerVans]

Здравствуйте! Проверьте пожалуйста решение задачи. (Вложенные циклы)
Дан целочисленный массив {bi}, i = 1, 2, ... , n. Вычислить S= b1+ b2^2 + ... + bn^n

program massiv;
const
  n = 2;
var                              
  b: array [1..2 * n] of integer;
  i: integer;
begin
  randomize;
  writeln('Исходная последовательность:');
  for i := 1 to 2 * n-1 do
  begin
    b[i] := random(20);//диапазон значений массива
    write(b[i]:5)
  end;
  writeln;
  writeln('Результат последовательности:');
  for i := 1 to 2 * n-1 do 
  begin
  write(b[i]+b[i+1]*b[i+1]+b[n]*n)//вычисление суммы по формуле 
  end;
end.

[newerow1989]

1 вариант

program massiv;

function step(chislo:integer;stepen:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=1 to stepen do
      Result:=Result*chislo;
end;

const
   n = 4;
var
   b: array [1..n] of integer;
   i,s: integer;
begin
   randomize;
   writeln('Исходная последовательность:');
   for i := 1 to n do
   begin
      b[i] := random(20);//диапазон значений массива
      write(b[i]:5)
   end;
   writeln;
   writeln('Результат последовательности:');
   s:=b[1];
   For i:=2 to n do
      s:=s+step(b[i],i);
   Writeln(s);
   Readln;
end.

2 вариант

program massiv;
const
   n = 4;
var
   b: array [1..n] of integer;
   i,j,s,s1: integer;
begin
   randomize;
   writeln('Исходная последовательность:');
   for i := 1 to n do
   begin
      b[i] := random(20);//диапазон значений массива
      write(b[i]:5)
   end;
   writeln;
   writeln('Результат последовательности:');
   s:=b[1];
   For i:=2 to n do
   begin
      s1:=b[i];
      For j:=2 to i do
         s1:=s1*b[i];
      s:=s+s1;
   end;
   Writeln(s);
   Readln;
end.

[ParkerVans]

А если пользователю самому вводить количество элементов массива?