nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A

Uses crt;

var A:array[1..1000] of integer;

     n,i,dc,dl:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       dc:=0; dl:=0;

       for i:=1 to n do

              begin

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

                     if A[i] mod 2=0

                     then dc:=dc+1

                     else dl:=dl+1;

              end;

       writeln('Co ',dc,' so chan');

       writeln('Co ',dl,' so le');

       readln

end.

program dem_so;

uses crt;

var A:array[1..1000] of integer;

     n,i,dc,dl:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       dc:=0; dl:=0;

       for i:=1 to n do

              begin

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

                     if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;

              end;

       writeln('Co ',dc,' so chan');

       writeln('Co ',dl,' so le');

       readln;

end.