program Example4;
var word: string;
begin word := 'операция'; Delete(word, 1, 1); // Удаляем первый символ 'о' Delete(word, 4, 3); // Удаляем символы 'р', 'а', 'ц' Insert('в', word, 1); // Вставляем 'в' в начало слова Insert('и', word, 6); // Вставляем 'и' после 'п' Insert('л', word, 8); // Вставляем 'л' после 'о' writeln(word); end.