program pascal;varword1, word2, word3: string;halfLength: integer;beginreadln(word1);readln(word2);
halfLength := length(word1) div 2;word3 := copy(word1, 1, halfLength) + copy(word2, halfLength + 1, halfLength);
writeln(word3);end.
program pascal;
var
word1, word2, word3: string;
halfLength: integer;
begin
readln(word1);
readln(word2);
halfLength := length(word1) div 2;
word3 := copy(word1, 1, halfLength) + copy(word2, halfLength + 1, halfLength);
writeln(word3);
end.