Дан массив целых чисел. нумерация элементов начинается с 0. выведите все элементы массива с четными номерами.формат входных данныхсначала задано число n - количество элементов в массиве, n100. далее через пробел записаны n чисел - элементы массива. все числа по модулю не превосходят 10000 формат выходных данныхвыведите все элементы массива с четными индексами (то есть a[0], a[2], a[4],

Вот массив который сам заполняется
uses crt;
const
n=100;
var
i,a:integer;
mas1: array [0..n] of integer;
begin
for i:=0 to n do
begin
a:=random(10000);
mas1[i]:=a;
end;
for i:=0 to n do
begin
if i mod 2=0 then
write('A[',i,']=',mas1[i],' ');
end;
end.

вот заполняемый вручную(чтобы записывать через пробел сам измени)))
uses crt;
const
n=100;
var
i,a:integer;
mas1: array [0..n] of integer;
label 1;
begin
for i:=0 to n do
begin
1:read(a);
if a<=10000 then
mas1[i]:=a
else
begin
writeln('a bolwe 10000');
goto 1
end;
end;
for i:=0 to n do
begin
if i mod 2=0 then
write('A[',i,']=',mas1[i],' ');
end;
end.