Дана строка текста,знаков препинания в строке нет.заменить все вхождения "Киров" на "Вятка"
На Паскале

var s:string; i:integer;beginreadln(s);while pos('Киров',s)<>0 do begin  i:=pos('Киров',s);  delete(s,pos('Киров',s),5);  insert('Вятка',s,i); end;write(s);end.