Cho dãy A gồm n phàn tử (0<n<200) giá trị mỗi phần tử được nhập từ bàn phím hãy đếm có bao nhiêu số chẵn bao nhiêu số lẻ in kết quả ra màn hình Giúp mik với mik cần gấp gấp gấp ạ huhuuuu

Mình làm theo code của python nhé:

n=int(input())
chan=0
le=0
if n <= 0 or n >=200:
    print("Nhap lai n")
else:
    for i in range(1,n):
        if i%2==0:
            chan+=1
        else:
            le+=1
    print("so chan co",chan,"so","so le co",le,'so')

program sksk;
uses crt;
var a : array[0..200] of integer;
    dem1, dem2, n, i :integer;
begin
clrscr;
write(' nhap so phan tu co trong mang :'); readln(n);
dem1 := 0;
dem2 := 0;
for i:= 1 to n do 
begin
write(' nhap phan tu thu ', i ,': '); readln(a[i]);
if a[i] mod 2 = 0 then dem1 := dem1 + 1; 
if a[i] mod 2 <> 0 then dem2 := dem2 + 1; 
end;
writeln('so chan co trong day la :', dem1 );
writeln('so le  co trong day la :', dem2 );
readln
end.