Волшебное дерево

begin
  var s := ReadlnString; // 'bbbabacbccbacacc';
  var(a,b,c):=(0,0,0);
  var d := 0;
  while s.Length>0 do begin
    d:=1; 
    if Copy(s,1,2)='ab' then begin inc(c); d:=2 end
    else
      if (Copy(s,1,2)='bc') or (Copy(s,1,2)='cb')  then begin inc(a); d:=2 end
      else if Copy(s,1,2)='bb' then begin inc(b); d:=2 end;
    Delete(s,1,d)  
  end;
  $'{a} {b} {c}'.Println;
end.

begin
  var s := ReadlnString;  //'bbbabacbccbacacc';
  var(a,b,c):=(0,0,0);
  while s.Length>0 do begin
    var d := 2; 
    case Copy(s,1,2) of
      'bc', 'cb':  a += 1;
      'bb':        b += 1;
      'ab':        c += 1;
     else d := 1;
    end;
    Delete(s,1,d)  
  end;
  $'{a} {b} {c}'.Println;
end.

##
match ReadString with
  
  'abc': '1'.Print;
  
  nil: '2'.Print;
  
  // если строки начинаются с [1] - сравнение с последовательностью [] для них сейчас не работает - issue#2316
  {$string_nullbased+}
  ['d', 'e', .., 'z']: '3'.Print;
  
  else '4'.Print;
end;

begin
  var s := ReadlnString;  //'bbbabacbccbacacc';
  var(a,b,c,d,index):=(0,0,0,1,0);
  repeat
    index += d;
    d := 2;
    match Copy(s,index,2) with
      'bc', 'cb':  a += 1;
      'bb':        b += 1;
      'ab':        c += 1;
     else d := 1;
    end;
  until index > s.Length-2;
  $'{a} {b} {c}'.Println;
end.