(Паскаль) Заполнить с клавиатуры массив из 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;