Найти количество нечётных элементов массива с(12), сформированного с клавиатуры. , со схемой

Могу только на паскале

program poisk;

const

N=12;

var

C:array [1..N] of integer;

i,k:integer;

begin

k:=0;

for i:=1 to N do

read(C[i]);

for i:=1 to N do

if i mod 2 <> 0 then

k:=k+1;

writeln('Кол-во нечетных чисел='k)

end.