Напечатать заданный текст с удалением из него всех букв b, непосредственно перед которыми находится буква с.

var
  s: string;
  i: integer;
begin
  readln(s);
  i := 1;
  while (i   begin
    if ((s[i] = b) and (s[i + 1] = c)) then
      delete(s, i, 1);
    i := i + 1;
  end;
  writeln(s);
end.