Код:
var n,i: integer;
mas: array[1..10000] of real;
begin
writeln('Input N'); //запрос размерности массива
readln(n);
for i:=1 to n do //цикл заполнения массива значениями с клавиатуры
begin
writeln('Input mas[',i,'] >');
read(mas[i]); end;
i:=2;
while i<=n do {цикл вывода на экран значений четных элементов массива, начиная со 2-го}
begin
writeln(mas[i]:10:4,' ');
inc(i,2); end;
readln
end.