zadach9.PAS

{* Задача 9 *}

Unit ZADACH9;
Interface
Implementation
Begin
 writeln('Из двух восьмибуквенных слов образовать последовательность букв, в которой должны чередоваться буквы первого и второго слова.');
End.

Program pr3;

Uses zadach9.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s1 : String;
  s2 : String;
  s  : String;
  i  : integer;
Begin
  read (s1);
  read (s2);
  For i := 1 To 8 Do {* Увеличиваем i от 1 до 8 с шагом 1 *}
    s := s + s1[i] + s2[i];
  write (s);
End.