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

var x:array[1..10] of integer;i,n,s:integer;begin s:=0;for i:=1 to n doread(x[i]);for i:=1 to n doif x[i] mod2=1 then s:=s+x[i];writeln('s=,s);readln;readlnend.Думаю так будет.