Ввести массив из 10 элементов, вывести значения честных номеров элементов.​

Условие в вопросе и комментариях различается, поэтому приведу два варианта.
1) Программа выводит элементы с четными номерами(те, которые стоят в массиве на четных местах)

Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('элементы с четным номером:');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.

2) Программа выводит четные элементы массива

Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
begin
writeln('Введите массив в одну строку через пробел:');
for i:=1 to n do read(a[i]);
writeln('четные элементы:');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
end.