viết chương trình nhập vào dãy số nguyên N phần tử .Có bao nhiêu số chẵn trong dãy? MÌNH CẦN RẤT GẤP Ạ MONG MỌI NGƯỜI GIÚP!!!

uses crt;

var i,n,dem:integer;

      a:array[1..1000] of integer;

begin

clrscr;

dem:=0;

write('n=');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to n do 

begin

if a[i] mod 2 = 0 then

dem:=dem+1;

end;

writeln('co',n,'số chẵn trong dãy');

readln;

end.

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