Дано слово электроника. написать программу получения из данного слова следующих слов трон,крот,лектор

Var n:string;beginn:=('Электроника');writeln(copy(n,5,4));writeln(n[4],copy(n,6,2),n[5]);writeln(copy(n,2,4),n[7],n[6]);end.