Составьте программу ввода с клавиатуры элементов массива 1.10 и вывода на экран элементов с чётными индексами

Program massiv;
var a: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(a[i]);
for x:=1 to 10 do
if (a[x] mod 2 = 0) and (a[x] > 0) then writeln(a[x]);
end.