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

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

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