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

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