аны целые числа N (> 2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих. — Pascal(Паскаль)

const
  N = 20;
  A = 3;
  B = 8;
var
  ar: array[1..N] of Integer;
  i, S: Integer;
begin
  ar[1]:=A;
  Writeln(A);
  ar[2]:=B;
  Writeln(B);
  S:=A+B;
  for i:=3 to N do
  begin
    ar[i]:=S;
    Writeln(S);
    Inc(S, S);
  end;
  Readln
end.