Ответы и объяснения

2014-02-01T09:47:03+00:00
Program beg;
var s:string;i:integer;
begin
readln(s);
if pos('бег',s)<>0 then 
begin
insert('шаг',s,pos('бег',s));
delete(s,pos('бег',s),3);
end;
writeln(s);
end.