var  
   f:text; 
   s:string; 
   max,i,k:  longint; 
   x:char; 
   begin 
     assign (f,'C:\Users\Admin\Desktop\УКПАИ.txt'); 
     reset(f); 
     read(f,s);  
     max:=0; 
     k:=0; 
     begin 
       for i:=1 to length(s) do 
       begin 
         if s[ i]='C' then 
           begin k:=k+1; 
         if k> max then max:=k; 
         if k>4 then break; 
         end 
      else 
           k:=0; 
      end; 
      end; 
      writeln (max); 
       end.

 var i, countC, C: longint; 
 s: string; 
 begin 
   assign(input, 'k7-m3.txt'); 
   readln(s); 
   C := 0; countC:=0; 
   if (s[1]='C') then C:=C+1; 
   for i:=2 to length(s) do begin 
     if s[ i]='C' then begin  
       C := C+1;; 
       if (i=length(s)) and (s[i-1]='C') and (C<=4) then begin write (countC+1, ' ', C, ' ', 'C'); 
       for var j := 2 to C do write ('c');; 
        writeln; 
       end; end 
     else begin 
       if (C<=4)and (C>0) then begin 
        countC := countC+1; 
        write (countC, ' ', C, ' ', 'C'); 
        for var j := 2 to C do write ('c');; 
        writeln; 
       end;  
       c := 0; 
     end;  
   end; 
 end.

 s=open('K7-m3.txt').read() 
 nc=0     # порядковый номер C-подцепочи длиной <= 4 
 count=0  # количество символов C в текущей C-подцепочке 
 for ch in s: # перебираем все символы в s 
     if ch=='C': 
         count+=1       
     else: # символ отличный от 'C' 
         if 0<count<=4:             
             nc+=1 # посчитаем закончившуюся C-подцепочку c длиной <= 4 
             print(nc,count,'C'+'c'*(count-1))               
         count=0   # сброс для следующей C-подцепочки 
 if 0<count<=4:    # если строка s заканчивается C-подцепочкой c длиной <= 4, 
     nc+=1         # то посчитаем ее  
     print(nc,count,'C'+'c'*(count-1))