Даны натуральные числа n, a1,..,an. Составьте программу, которая определяет количество членов последовательности a1,..,an, с чётными порядковыми номерами и нечётными значениями.

var i,n,k:integer;a:array[1..100] of integer;beginreadln(n);for i:=1 to n doread(a[i]);for i:=1 to n doif odd(a[i]) and not odd(i) then inc(k);writeln('Кол-во элементов с четн.номерами и нечетн.значениями: ',k);end.