program chan_le;

uses crt;

var s,s1,s2:string;

      i,so:byte;

begin

      clrscr;

      write('Nhap xau: '); readln(s);

      s1:='';  s2:='';

      for i:=1 to length(s) do

            if s[i] in ['0'..'9'] then

                  begin

                        val(s[i],so);

                        if so mod 2=0 then s1:=s1+s[i] else s2:=s2+s[i];

                  end;

      if length(s1)=length(s2) then write('error')

            else if length(s1)>length(s2) then write('La xau chan')

            else write('La xau le');

      readln;

end.

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.