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

program arras;
var arr: array[1..10] of integer;
N, A, B, i: integer;
begin
    write('Введите N: ');
    readln(N);
    write('Введите A, B: ');
    readln(A, B);
    arr[1] := A;
    arr[2] := B;
    arr[3] := A + B;
    for i := 4 to N do
        arr[i] := 2 * arr[i - 1];
    for i := 1 to N do
        write(arr[i], ' ')
end.