Составьте программу ввода с клавиатуртуры элементов массива a [1..10] и вывода на экран элементов с четными индексами.

Var
  a:array[1..10] of integer;
  i:integer;
begin
  for i:=1 to 10 do readln(a[i]);
  i:=2;
  while i<=10 do
  begin
    writeln(a[i]);
    inc(i,2);
  end;
  readln;
end.