Pascal :

var a,b:integer;
begin
readln(a,b);
if a>b then writeln('Da');
if a=b then writeln('Deng');
if a<b then writeln('Xiao');
end.