var
  s: string;
  a: char;
  i, it: integer;

begin
  writeln('Ââåäèòå ÷èñëî: ');
  readln(s);
  writeln('Ââåäèòå A: ');
  readln(a);
  i:=1;
  while i<>length(s)+1 do
   if s[i] = a then delete(s, i, 1) else inc(i);
  write(s);
end.