Pascal, nếu cần python nói nhé !

uses crt;
 var a : array[1..100] of longint ;
  n,i,d: longint ;
   begin
    clrscr;
write('n=');
 readln(n);
  for i := 1 to n do 
     begin
    write('a[',i,']=');
    readln(a[i]);
    if a[i] mod 2=0 then d := d + 1 ;
     end;
 writeln('So luong so chan: ',d);
       readln
        end.

`#Gracias`

uses crt;

var C : array [1 .. 100] of integer;

    i, n, x : integer;

begin

clrscr;

write('Nhap do dai day so : '); readln(n);

x := 0;

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' = '); readln(C[i]);

        if C[i] mod 2 = 0 then x := x + 1;

    end;

write('Co ', x,' so chan trong day');

readln

end.