Nhập 1 mảng a gồm n số nguyên đưa ra màn hình tổng số lẽ và chẵn

program Mang;
uses CRT;
var    a: array[1..10000] of integer;
    i,n,le,chan: integer;
begin

           clrscr;
          
           write(‘Nhap n= ‘); readln(n);
          
           for i:=1 to n do
          
                   begin
                  
                       write(‘a[‘,i,‘]: ‘);readln(a[i]);
                      
                   end;
                  
           for i:=1 to n do
               
                If a[i] mod 2 = 0 then chan:=chan+a[i]   

                          else    le:=le+a[i];
                   
           writeln(‘Tong so chan la: ‘,chan);
          
           write(‘Tong so le la: ‘,le);                 
                              
readln;
end.