Как составить алгоритм преобразования слова "информатика" в слово "форма" ?
Program n1; Uses CRT; Var a: string; begin a:='информатика'; delete(a,1,2); delete(a,6,4); writeln(a); readln end.