uses crt;
var a,b:string;
begin
clrscr;
write('Nhap xau ki tu thu nhat: ');readln(a);
write('Nhap xau ki tu thu hai: ');readln(b);
if length(a)>length(b) then writeln(b) else if length(b)>length(a) then writeln(a) else begin writeln(a); writeln(b);end;
readln
end.