VAR
 S:String;
 i,N:Byte;

Function B(CB:Char):Boolean;
begin
 B:=((Ord(CB)>64) and (Ord(CB)<91)) or
    ((Ord(CB)>96) and (Ord(CB)<123));
end;

BEGIN
 Writeln('Enter the string:');
 Readln(S);
 If S[1]='A' then N:=1 else N:=0;
 For i:=2 to Length(S) do
  If (B(S[i-1])=false) and (S[i]='A') then Inc(N);
 Writeln('N= ',N);
 Readln;
END.

VAR
 S:String;
 i,j,N,NA,i1,i2:Byte;
 W:Array[1..100] of String;
 C:Array[1..100] of Byte;

BEGIN
 Writeln('Enter the string:');
 Readln(S);
 i:=0;
 N:=0;
 Repeat
  Repeat
   Inc(i);
  Until S[i]<>' ';
  i1:=i;
  While (S[i]<>' ') and (i<Length(S)) do
   Inc(i);
  If i=Length(S) then i2:=i else i2:=i-1;
  Inc(N);
  W[N]:=Copy(S,i1,i2-i1+1);
 Until i=Length(S);

 For i:=1 to N do C[i]:=0;

 For i:=1 to N do
  For j:=1 to Length(W[i]) do
   If W[i][j]='А' then Inc(C[i]);

 NA:=0;
 For i:=1 to N do
  If C[i]=3 then Inc(NA);

 Writeln('The number of words, containing 3 "А" letters, is ',NA);

 Readln;
END.