Даны целые числа n (> 2), a и b. сформулировать и вывести целочисленный массив размера n, первый элемент которого равен а, второй равен в, а каждый последующий элемент равен сумме всех предыдущих.

Const k = 100;
var mas:array [1..k] of integer;
i,a,b,s,n:integer;
begin
  write('Количество элементов: ');readln(n);
  write('Первый и второй элемент: ');readln(a,b);
  mas[1]:=a;mas[2]:=b;s:=a+b;
  write( mas[1],' ',mas[2],' ');
  for i:=3 to n do begin
    mas[i]:=s;
    s:=s+ mas[i];
    write(mas[i],' ');
  end;
end.

Тестовое решение:

Количество элементов: 10
Первый и второй элемент: 2 3
2 3 5 10 20 40 80 160 320 640