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 inc(l);
if c>l then writeln('Day la xau chan') else
writeln('Day la xau le');
readln
end.