uses crt; var x:string; i,c,l:longint; begin clrscr; write('Nhap mot chuoi X: ');readln(x); for i:=1 to length(x) do if x[i] in ['0','2','4','6','8'] then inc(c) else if x[i] in ['1','3','5','7','9'] then inc(l); if c>l then writeln('Day la xau chan') else if l>c then writeln('Day la xau le') else writeln('error'); readln end.
