program m;
uses crt;
var
s1,s2:string;
x,y:char;
i,j:byte;
begin
{тут кусок кода где вводят s1,x,y}
j:=1;
for i:=1 to length(s1) do begin
if (s1[i] <> x) then begin
s2[j]:=s1[i];
inc(j);
if (s1[i] = y) then begin
inc(j);
s2[j]:=s1[i];
end;
end;
end;
writeln(s2);
end.