Даны два слова. Слова состоят из чётного количества символов. Получите третье слово, которое состоит из первой половины первого слова и второй половины второго слова.
Например: ввод: тело, кома; вывод: тема. (ПАСКАЛЬ)

var s1,s2:string;    len:integer;begin  readln(s1);  readln(s2);  len:=Length(s1) div 2;  s1:=Copy(s1,1,len)+Copy(s2,len+1,len);  writeln(s1);end.