Ответ:
program qq;
var a:array of integer; // объявляем безразмерный массив целых чисел
n,i:integer; // объявляем переменные n,i целого типа
begin
read(n); // считываем значение n - длины массива - с клавиатуры
setlength(a,n); // устанавливаем длину массива a
for i:=0 to n-1 do read(a[i]); // считываем элементы массива с клавиатуры
writeln; // новая строка
i:=0;
while i
write(a[i]:4); // вывод элемента массива с индексом i
i:=i+2; // увеличиваем индекс i на два
end;
end.