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

var s:string;
    ans,a,i:longint;
begin
readln(s);
ans:=0;
i:=0;
while true do
  begin
    a:=pos('A',s);
    if a<=0 then break;
    if a<i then begin delete(s,a,1);i:=pos(' ',s);delete(s,i,1);i:=pos(' ',s);continue; end;
    inc(ans);
    delete(s,a,1);
    i:=pos(' ',s);
    if i<=0 then break;
    if i<a then begin
                 while (i<a)or (i>0) do
                   begin
                     i:=pos(' ',s);
                     if i=0 then break;
                     delete(s,i,1);
                     a:=pos('A',s);
                   end;
                 end;
    if i=0 then break;
  end;
write(ans);
end.

var  s:string;
     ans,i,j:longint;
     f:boolean;
begin
readln(s);
ans:=0;
i:=1;
while true do
  begin
    if s[i]='A' then begin inc(ans);
                               f:=false;
                               for j:=i to length(s) do
                               if s[j]=' ' then begin i:=j;f:=true;break;end;
    if f=false then break;
    end;
    inc(i);
  end;
write(ans);
end.