Заполнить массив из 15 частей так, чтобы значение каждого элемента было

1.

var a:array [1..15] of integer;

i:integer;

begin

for i:=1 to 15 do a[i]:=i*2;

write (a)

end.

2.

var a:array [1..10] of integer;

i:integer;

begin

writeln ('Введите 10 частей массива через пробел.Позже нажмите Enter.');

for i:=1 to 10 do read(a[i]);

write ('Элементы с нечётными индексами: ');

for i:=1 to 10 do if i mod 2 lt;gt; 0 then write (a[i],'  ');

writeln;

write ('Элементы с чётными индексами: ');

for i:=1 to 10 do if i mod 2 = 0 then write (a[i],'  ')

end.