Ответ:

var s1,s2: string;

begin

s1:='тетрадь';

s2:='слон';

writeln (copy(s1,4,3),copy(s2,3,1),copy(s2,1,1),copy(s1,1,1),copy(s1,7,1))

end.

Объяснение:

Задали две строки с требуемыми словами.

Вывели на печать необходимые буквы из этих строк.

Функция Copy(имя строковой переменной; номер символа в этой строке с которого начинается копирование, количество символов которые надо скопировать).

begin

 var (a, b) := ('тетрадь', 'слон');

 var s := a[4:7]+b[3]+b[1]+a[1]+a[7];

 s.Println;

end.

===== PascalABC.NET =====