// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin var s1:=ReadlnString('S1=').Replace(',',''); var s2:=ReadlnString('S2='); var s:=S1.Interleave(S2).JoinIntoString(''); Writeln(s)end.ПримерS1= d,e,fS2= 567d5e6f7