Вот 1:
Program Help;
Var A : Array[0..1000] of Integer; (* Наш массив *)
n : Integer;
Begin
(* Какая-то часть кода...*)
n := 0; (* Присвоить счетчику 0 *)
Repeat
Write(A[n], ' '); (* Выводим A[n] *)
n := n + 2; (* Прибавляем к счетчику 2 *)
Until n = 1000; (* Повторить до длинны массива *)
Readln;
End.
