Varn:string;t:integer;beginwriteln (Введите строку);readln(n);if pos(ма,n)<>0 thenbegint:=pos(ма,n);delete(n,t,2);insert(ва,n,t);writeln(n)endelsewriteln(Такой слог в строке не найден)end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.