Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 10 элементов, вводим их

program odd_places;var a: array [1..10] of integer;s: integer;begins:=0;writeln(\'Введите элементы массива\');for i:integer:=1 to 10 do read(a[i]);writeln();for i:integer:= 1 to 10 do write(a[i] : 5);writeln();for i:integer:= 1 to 10 do if i mod 2 = 1 then beginwrite(a[i] : 5);s:= s + a[i] endelse write(\'_____ \'); // знаки подчеркивания заменить пятью пробеламиwriteln();writeln(\'Сумма элементов на нечетных местах: \', s)end.