(Паскаль)Заполнить с клавиатуры массив из 10 элементов. Вывести на экран те элементы массива, которые имеют четный номер и четное значение . 

program gt;var a:array[1..100]of integer;i:integer;beginfor i:=1 to 10 dobeginread(a[i]);end; for i:=1 to 10 dobeginif(a[i] mod 2=0)or(i mod 2=0)then write(a[i],' ');end;