var

 a: array  [1..5] of integer;

 i: integer;

begin

 for i:=1 to 5 do

   a[i]:=2*i;

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

 for i:=1 to 5 do

   write(a[i], ' ');

end.