Составьте программу, которая позволяет вводить с клавиатуры элементы массива а [1..10] и вывода на экран элементов массива с нечетнымииндексами
1 2 var a:array [1..100] of integer; i:integer; 3 begin 4 for i:=1 to 10 do 5 read(a); 6 for i:=1 to 10 do 8 writeln (a); 9