Turbo pascal. путем копирования и склейки из слова 'путеводитель' получить слова: водитель, путь, дело, дети.

Program n_1;var s, s1, s2, s3, s4, s5, s6, s7, s8: string;begin
s:='путеводитель';
s1:=s;delete(s1, 1, 4);
s2:=s;delete(s2, 4, 8);
s3:=copy(s, 7, 1);s4:=copy(s, 4, 1);s5:=copy(s, 11, 1);s6:=copy(s, 6, 1);
s7:=s3+s4+s5+s6;
s3:=copy(s, 7, 1);s4:=copy(s, 4, 1);s5:=copy(s, 3, 1);s6:=copy(s, 8, 1);
s8:=s3+s4+s5+s6;
writeln(s1, ' ', s2, ' ', s7, ' ', s8, ' ');
end.