var
  s: string;
  i: integer;
  x,y: char;
begin
  writeln('Vvedite text:');
  readln(s);
  writeln('Vvedite x i y:');
  readln(x);
  readln(y);
 for i:=length(s) downto 1 do
 begin
    if s[i]=y then
    begin
    insert(y,s,i+1);
    insert(y,s,i+2);
    end;
    if s[i]=x then
    delete(s,i,1);
   end;
 writeln(s);
end.