Напечатать заданный текст с удалением из него всех букв 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.