Из слова «клавиатура» получить следующие слова: тур, рука, лавка, вата. В Паскале ?

Получать слова можно по-разному. Самое простое - собирать их по буквам: var st1,st2:string[10]; begin readln(st1); st1:='клавиатура'; st2:=st1[7]+st1[8]+st1[9]; writeln(st2); st2:=st1[9]+st1[8]+st1[1]+st1[3]; writeln(st2); st2:=st1[2]+st1[3]+st1[4]+st1[1]+st1[3]; writeln(st2); st2:=st1[4]+st1[3]+st1[7]+st1[10]; writeln(st2); end. Результат: тур рука лавка вата