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

program z_z1;

const v = 11; / / общее количество

var qq: Array [0 ... v] of Integer; / / описываем массив

s, jj, k:integer; / / здесь переменные типа целочисленного

Begin

writeln (' Начальный массив: ');

for jj:=0 To v do

qq[jj]: = random (68) - 25;

for jj: = 0 to v do / / полученный массив выводим через пробел

write (qq[jj],' ');

/ / переходим на новую строку

writeln;

For jj:=1 To v do

if jj mod 2 = 0 then write (qq[jj],' '); / / ответ

end.