Заполнить массив из 5 элементов, значение каждого элемента – это удвоенное значение индекса этого элемента. вывести на экран в столбик.

Const Sz = 100; // Размер массива

var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;

begin
N:=5;
write('Введите элементы массива: ');
for i:=1 to N do
a[i]:=i*2;
write('Вывод элементов массива: ');
for i:=1 to N do
writeln(a[i]);
end.