uses Crt;
const
n=100; { мах длина строки }
var
s:string[n];
i,k:integer;
begin
ClrScr;
Readln(s);
k:=0;
for i:=1 to Length(s) do
if (s[i]='а') or (s[i]='А') then Inc(k);
Writeln(k);
ReadKey
end.
