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

Program n1;
const n=11;
var a: array[0..n] of integer;
i: integer;
begin
for i:=0 to n do
begin
a[i]:=random(10);
if i mod 2=0 then write(a[i],' ');
end;
end.