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:=1 to length(s) 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.