Дан массив целых чисел. Нумерация элементов начинается с 0. Выведите все элементы…

Вот массив который сам заполняетсяuses crt; constn=100; vari,a: integer; mas1: array [0… n] of integer; beginfor i: =0 to n dobegina: =random (10000); mas1[i]: =a; end; for i: =0 to n dobeginif i mod 2=0 thenwrite ('A[',i,']=',mas1[i],'); end; end. Вот заполняемый вручную (чтобы записывать через пробел сам измени) uses crt; constn=100; vari,a: integer; mas1: array [0… n] of integer; label 1; beginfor i: =0 to n dobegin1: read (a); if a <= 10000 thenmas1[i]: =aelsebeginwriteln ('a bolwe 10000'); goto 1end; end; for i: =0 to n dobeginif i mod 2=0 thenwrite ('A[',i,']=',mas1[i],'); end; end.