Посчитать сколько нечетных цифр в n значном числе! (паскаль)

Program zadanie; var i,n,a: integer; begin readln(n); for i: =1 to n do begin if(i mod 2)=1 then a: =a + 1; end; writeln(a); readln; end.если я правильно понял то так,если нет,пиши переделаю!

#include< iostream> using namespace std; int main() {       int n,a,m;       double  s = 0;       cout < < "n = ", cin > > n, cout < < "\n";       cout < < "vvedite n chisel: " < < endl;       cin > > a;       m = a;       s+=a;       for(int i=2; i< =n; i++)       {                       cin > > a;                       if (a< m) m = a;                       s+= a;       }       cout < < "srednee arifm. = " < < s/n < <   "\n";       cout < < "min = " < < m < < "\n";             system("pause");       return 0; }

// pascalabc.net 3.0, сборка 1111 begin   var n: =readinteger('количество элементов массива: ');   var a: =arrrandom(n,-50,50);   writeln('*** сгенерированный массив ***');   a.println(',');   write('сумма элементов в диапазоне (-20; 45) равна ');   writeln(a.where(x-> x in [-20..45]).sum) end. тестовое решение: количество элементов массива: 10 *** сгенерированный массив *** -6,-29,3,7,-40,-44,-46,-15,3,-3 сумма элементов в диапазоне (-20; 45) равна -11