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