a:=length(str1);
b:=length(str2);
if a>b then
   for i:=1 to a do
      begin
         newstr:=str1[i];
         newstr:=str2[i];
      end;
else
   for i:=1 to b do
      begin
         newstr:=str1[i];
         newstr:=str2[i];
      end;
writeln(newstr);