Var s1,s2:string;
i:integer;
begin
readln(s1);
readln(s2);
for i:=length(s1) downto 1 do
write(s1[i],s2[i]);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.