Дан массив из n элементов определить количество элементов имеющие четные порядковые номера и являющиеся нечетными номерами

uses crt;

var m: array[1..1000] of integer;

i,j: integer;

begin

clrscr;

writeln('введите размер массива ');

readln(n);

writeln('массив: ');

for i: =1 to n do

begin

m[i]: =i;

write(m[i],' ');

if i mod 2 =0 then j: =j+1;

end;

writeln;

writeln('количество элементов с четными номерами = ',j);

readkey;

end.