pascal假设在周末舞会上,男士们和女士们进入舞厅时,各自排成一队.跳舞开始时,依次从男队和女队的队头上各

var s1,s2:string; i,j,k:integer;

begin

readln(s1); readln(s2);

j:=length(s1); k:=length(s2);

if j>k then begin i:=j; j:=k; k:=i end;

write(s1[1],s2[1]);

for i:=2 to j do write(' ',s1[i],s2[i]);