Заполнить и вывести на экран одномерный массив размером N элементов числами: 2,4,6 Нужна программа. Паскаль​

program mas;

var

 massive: array[0..1000] of integer;

 n, i: integer;

begin

 massive[0] := 2;

 write('Введите количество элементов массива: ');

 read(n);

 for i := 0 to n - 1 do

 begin

   write(massive[i], ' ');

   massive[i + 1] := massive[i] + 2;

 end;

end.

Объяснение:

Максимальный размер массива - 1001 элемент.

program mas;  // Название программы

var

 massive: array[0..1000] of integer;  // Целочисленный массив

 n, i: integer;  // Переменные, отвечающие за количество чисел в массиве и счётчик.

begin  // Начало программы

 massive[0] := 2;  // Первое значение массива = 2

 write('Введите количество элементов массива: ');  // Вывод сообщения в консоль

 read(n);  // Считываем значение переменной n с клавиатуры

 for i := 0 to n - 1 do  // Идём от 0 до n - 1 индекса (n - 1, т. к. идём с нулевого индекса)

 begin  // Начало цикла

   write(massive[i], ' ');  // Вывод значения массива с индексом i

   massive[i + 1] := massive[i] + 2;  // Следующий элемент массива = текущий элемент массива + 2

 end;  // Конец цикла

end. // Конец программы