program xxx; uses crt; var s,a,b:string; begin write('Ââåäèòå äâà ñëîâà '); readln(a); readln(b); if length(a) s:=a+b else s:=b+a; writeln(s); readln; End.