Составьте программу,которая заменяет в строке s слоги "ма" ** слоги "бу"

Question

Составьте программу,которая заменяет в строке s слоги "ма" на слоги "бу"

Comments

Пример ввода макет,мак...букет бук

Answer 1

Var n:string; t:integer; begin writeln ('Введите строку'); readln(n); if pos('ма',n)<>0 then begin t:=pos('ма',n); delete(n,t,2); insert('ва',n,t); writeln(n) end else writeln('Такой слог в строке не найден') end.