Написать программу вывода на экран чисел, если они чётные и индексы их ячеек чётные.

Var a: array [1 ... 1000]of integer;

i, n:integer;

begin

Write ('Размер массива N = ') ;

readln (n) ;

for i: = 1 to n do begin

write ('a[', i,'] = ') ;

readln (a[i]) ;

end;

writeln;

for i: = 1 to n do

if (i mod 2 = 0) and (a[i] mod 2 = 0) then

write (a[i], ' ') ;

end.