Объяснение:
program z;
var a:array[0..100] of integer;
i,n:integer;
BEGIN
writeln(' Введите количество элементов массива');
readln(n);
writeln('Заполните массив числами');
for i:=0 to n-1 do
readln(a[i]);
i:=0;
while i<=n-1 do begin
writeln(a[i]);
i:=i+2;
end;
readln;
END.