Датчиком случайных чисел заполнить вещественный вектор a[1.n] и вычислить сумму

var i: integer;
      a: array[1..n] of real;
      S: real;
    
  begin
    k:= 1;
    randomize;
    for i:= 1 to n do
      begin
        a[i]:= random * 20000 - 10000;//Присваивает каждому элементу вектора рандомное вещественное число от -10000 до 10000
      end;
    for i:= 2 to (n-1) do
      begin
        S:= S + (i * a[i-1] * a[i] * a[i+1]);
      end;
    S:= S + a[1];
    writeln('Ответ: ', S);
    wait;
  end;

const n=20;
var a: array[1..n] of real;
    p,s:real;
begin
randomize;
for var i:=1 to n do
 begin
  a[i]:=-10+10*random;
  write(a[i]:5:1);
 end;
writeln;
s:=0;
p:=1; 
for var i:=1 to n do
 begin
  p:=p*a[i];
  s:=s+i*p;
 end;
writeln('Ответ: ', S);
end.

var i,j: integer;
      a: array[1..n] of real;
      S, p: real;
    
  begin 
    randomize; 
    for i:=1 to n do 
    begin 
      a[i] := random * 20000 - 10000;//Присваивает каждому элементу вектора рандомное вещественное число от -10000 до 10000 
    end;
    for i:=1 to n do 
      begin
        P := 1; 
        for j:=1 to i do p:= p * a[j]; //a1*a2...an 
        S := S + i * p; 
      end;
  writeln('Ответ: ', S); 
  wait; 
  end;