Составьте программу, которая позволяет вводить с клавиатуры элементы массива а [1..10] и вывода на экран элементов с четными индексами

Program mas;
var i:integer; a:array[1..10] of integer
begin 

for i=1 to 10 do
begin
readln(a[i]);
end;

for i=2 to 10 do
begin
writeln(a[i]);
i:=i+1;
end;

end.