Посчитать количество четных цифр любого числа паскаль

Var   n: longint;   d,k: integer; begin   write('введите натуральное число: '); read(n);   k: =0;   while n> 0 do begin       d: =n mod 10;       n: =n div 10;       if (d mod 2)=0 then inc(k)   end;   writeln('количество четных цифр равно ',k) end.

#include

#include

#include

using namespace std;

int main(){

    vector a;

    int n, k;

    cin > > n > > k;

    a.resize(n);

    for(int i = 0; i < n; i++){

        cin > > a[i];

    }

    long long pr = 1;

    for(int i = 0; i < n; i++){

        if(k < = 0) break;

        if(a[i] % 2 == 1){

            pr *= a[i];

            k--;

        }

    }

    cout < < pr;

}

Var s,p1,p2: string; a: array['a'..'z'] of byte; n,i,j,f: integer; c,sim: char; begin readln(n); readln(s); for c: ='a' to 'z' do a[c]: =0; for i: =1 to length(s) do   a[s[i]]: =a[s[i]]+1; p1: =''; p2: =''; f: =0; for c: ='a' to 'z' do   begin   for j: =1 to a[c] div 2 do   begin p1: =p1+c; p2: =c+p2; end;   if (a[c] mod 2=1)and(f=0)   then begin sim: =c; f: =1; end;   end; if f=1 then p1: =p1+sim; p1: =p1+p2; writeln(p1); end. пример: 6 qazqaz aqzzqaps. программа проверялась только для коротких (string) строк. для длинных нужно использовать  ansistring.