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

Program zadacha1;uses crt;const N=5;  //размер массиваvar m:array[1..n] of integer;i:integer;BeginWriteln('Исходный массив');For i:= 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //    дляm[i]:=random(101)-50; // случайногоWriteln(m[i]); //  этиend; //Writeln('Прямой вывод');For i:=1 to n dowriteln(m[i]);Writeln('Обратный вывод');For i:=1 to n dowriteln(m[n+1-i]);End.

Program zadacha2;uses crt;const N=5; // размер массиваvar m:array[1..n] of integer;i:integer;BeginWriteln('Исходный массив');For i:= 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //    дляm[i]:=random(101)-50; // случайногоWriteln(m[i]); //  этиend; //Writeln('Вывод');For i:=1 to n doif i mod 2 = 0 then writeln(m[i]);End.

Program zadacha3;uses crt;const N=5; // размер массиваvar m:array[1..n] of integer;i:integer;BeginWriteln('Исходный массив');For i:= 1 to n do//readln(m[i]); //для ручного ввода оставьте эту строкуbegin //    дляm[i]:=random(101)-50; // случайногоWriteln(m[i]); //  этиend; //Writeln('Вывод');For i:=1 to n doif (n+1-i) mod 2 <> 0 then writeln(m[n+1-i]);End.