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

Question

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

Answer 1

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.