Дан массив, состоящий из целых чисел. нумерация элементов начинается с 0. напишите программу, которая выведет элементы массива, номера которых четны

Var a:array[0..100] of integer; 
n,i:integer; 
begin 
writeln('Введите количество элементов массива'); 
read(n); 
for i:=0 to n-1 do read(a[i]); 
for i:=0 to n-1 do 
if i mod 2=0 then write(a[i],' '); 
end.