program sosanhxau;
uses crt;
var s1,s2:string;
begin
clrscr;
write('Nhap xau 1: ');readln(s1);
write('Nhap xau 2: ');readln(s2);
if (Length(s1) > Length(s2) ) then write('Xau 1 co do dai dai hon xau 2.') else 
     if ( Length(s1) = Length(s2) ) then write('Xau 1 co do dai bang xau 2.') else
           write('Xau 1 co do dai ngan hon xau 2.');
readln;
end.