К концу строки S1 добавить последний символ S2. Программа в Паскале
//PascalABC.Net 3.2 begin write (readstring('S1 =')+readstring('S2 =')) end.