Nhập vào bàn phím 1 dãy gồm n số nguyên dương. Hãy kiểm tra dãy đó có vao nhiêu số chẵn , bao nhiêu số lẽ. Tính tổng dãy đó Đếm xem dãy đó có bao nhiê

uses crt;
var a:array[1..1000] of integer;
i,n,chan,le,t,dem:integer;
begin
    clrscr;
    write(‘n= ‘);readln(n);
    chan:=0;le:=0;t:=0;dem:=0;
    for i:=1 to n do
        begin
            write(‘A[‘,i,’]=’);readln(a[i]);
            if a[i] mod 2 = 0 then inc(chan) else inc(le);
            t:=t+a[i];
            if (10<=a[i]) and (a[i]<100) then inc(dem);
        end;
     writeln(‘Co ‘,chan,’ so chan’);
     writeln(‘Co ‘,le,’ so le’);
     writeln(‘Tong day so: ‘,t);
     writeln(‘Co ‘,dem,’ so co 2 chu so’);
readln;
end.