uses crt;
var s1,s2: string;
begin
clrscr;
write ('s1= '); readln (s1);
write ('s2= '); readln (s2);
if length(s1)>length(s2) then write ('xau 1 dai hon xau 2');
if length(s1)<length(s2) then write ('xau 1 ngan hon xau 2');
if length(s1)=length(s2) then write ('xau 1 bang xau 2');
readln;
end.