program  raf105;

var s1,s2: string;

begin

s1:= 'канатоходец';

s2:= copy(s1,3,2)+copy(s1,7,3)+copy(s1,1,2);

writeln(s2);

s2:='';

s2:= copy(s1,5,1)+copy(s1,2,2)+copy(s1,10,2);

writeln(s2);

s2:='';

s2:= copy(s1,9,1)+copy(s1,6,2)+copy(s1,8,2);

writeln(s2);

end.

Язык PascalABC