Program Array12;
var
  a: array of integer;
  i, n: integer;
begin
  WriteLn('Размер массива:');
  ReadLn(n);
  SetLength(a, n);
  Writeln('Введите ', n, ' чисел:');
  for i := 0 to n - 1 do
    Read(a[i]);
  ReadLn;
  WriteLn('Элементны с чётными номерами: ');
  i := 1;
  while i < n do
  begin
    Write(a[i], ' ');
    Inc(i, 2);
  end;
  WriteLn;
  ReadLn;
end.