Заполнить массив из 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.