program tin_hoc;

uses crt;

var s1,s2:string;

begin

clrscr;

writeln('Nhap xau thu nhat:');readln(s1);

writeln('Nhap xau thu hai:');readln(s2);

if length(s1) > length(s2) then writeln('Xau co do dai lon hon la:',s1);

if length(s1) < length(s2) then writeln('Xau co do dai lon hon la:',s2);

if length(s1) = length(s2) then writeln('Xau co do dai lon hon la:',s1);

readln;

end.