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

var a:array[1..10] of integer;i:integer;beginfor i:=1 to 10 doread(a[i]); writeln;for i:=1 to 10 doif (i mod 2 = 0) and (a[i] mod 2 = 0) thenwrite(a[i]:3);end.