PROGRAM SO_SANH;

VAR s1, s2: string;

BEGIN

Writeln(‘Nhap vao xau thu nhat:’); Readln(s1);

Writeln(‘Nhap vao xau thu nhat:’); Readln(s2);

If length(s1) < length(s2) then Write(‘Xau ngan hon la:’,s1)

                                          Else Write(‘Xau ngan hon la:’,s2);

Readln

END.