uses crt;
var s1, s2 : string;
begin
clrscr;
write('Nhap xau s1 : '); readln(s1);
write('Nhap xau s2 : '); readln(s2);
if s1 > s2 then write('Xau s1 lon hon xau s2');
if s1 < s2 then write('Xau s1 nho hon xau s2');
if s1 = s2 then write('Xau s1 bang xau s2');
readln
end.