program xau_ngan;
uses crt;
var f:text;
s1,s2:string;
begin
clrscr;
Assign(f,'ketqua.txt'); rewrite(f);
write('Nhap xau thu nhat: '); readln(s1);
write('Nhap xau thu hai: '); readln(s2);
if length(s1)=length(s2) then write(f,s1,' ',s2)
else if length(s1)<length(s2) then write(f,s1) else write(f,s2);
readln;
end.