Олимпиадная задача

var   rez:string;
  b,s,c,gb,gs,gc,kb,ks,kc,zenb,zens,zenc,flag,i: byte;
  rub,gamb: longint;
        label m1,m2,m3;
BEGIN
 readln(rez);
 read(kb); read(ks); readln(kc); read(zenb); read(zens); readln(zenc);
 read(rub);
 gb:=0;  gs:=0; gc:=0; gamb:=0; flag:=0;
 while i<>1 do begin;
       if rez[i]='b' then gb:=gb+1 else
       if rez[i]='s' then gs:=gs+1 else
       if rez[i]='c' then gc:=gc+1 else i:=1;
        end;
 
 while flag=0 do
 
 if kb>=gb then begin;
     m1:
     kb:=kb-gb;
     if ks>=gs then begin;
         m2:
         ks:=ks-gs;
         if kc>=gc then begin;
             m3:
             kc:=kc-gc;
             gamb:=gamb+1;
            end
             else if rub>=zenc then begin;
                  rub:=rub-(gc-kc)*zenc;
                  kc:=gc;
                  goto m3;
 
                    end
                             else flag:=1;
        end
          else if rub>=zens then begin;
              rub:=rub-(gs-ks)*zens;
              ks:=0;
              goto m2;
 
               end
                      else flag:=1;
    end
      else if rub>=zenb then begin;
          rub:=rub-(gb-kb)*zenb;
          kb:=0;
          goto m1;
           end
            else flag:=1;
 write(gamb);
END.

while i<>1 do begin;
       if rez[i]='b' then gb:=gb+1 else
       if rez[i]='s' then gs:=gs+1 else
       if rez[i]='c' then gc:=gc+1 else i:=1;
        end;

for i:=1 to 100 do begin;
       if rez[i]='b' then gb:=gb+1 else
       if rez[i]='s' then gs:=gs+1 else
       if rez[i]='c' then gc:=gc+1 else i:=100;
        end;

var
  s: string;
  n,p,c: array[1..3] of integer;
  i: integer;
  m,g: int64;
begin
  ReadLn(s); ReadLn(n[1],n[2],n[3]); ReadLn(p[1],p[2],p[3]); ReadLn(m);
  { считаем затраты ингридиентов на бутерброд }
  g:=0; FillChar(c,sizeof(c),#0);
  for i:=1 to Length(s) do
    case s[i] of
    'B': inc(c[1]);
    'S': inc(c[2]);
    'C': inc(c[3]);
    end;
  { используем запасы, пока позволяют деньги }
  while n[1]+n[2]+n[3]>0 do begin
    for i:=1 to 3 do begin
      dec(n[i],c[i]);
      if n[i]<0 then begin inc(m,n[i]*p[i]); n[i]:=0; end;
    end;
    if m>=0 then inc(g) else break;
  end;
  { докупаем остальное }
  if m>0 then inc(g,m div (p[1]*c[1]+p[2]*c[2]+p[3]*c[3]));
  WriteLn(g);
end.