số lẻ
uses crt ;
var n,i,demchan,demle:word
a:array[1..100] of longint;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write(a'[',i',]=');readln(a[i])
end;
demchan:=0;
demle:=0;
for i:=1 to n do
if a[i] mod 2=0 then demchan=:demchan+1
end;
if demchan=0 then writeln( 'khong co phan tu chan trong day )
else writeln('so phan tu chan trong day la:',demchan);
if demle=0 then writeln( khong co phan tu le trong day)
else writeln('so phan tu le trong day la:',demle);
readln;
end.