var A:array[1..100] of string;
s,s1:string;
i,n:integer;
begin
Writeln('String :');
Readln(s);
n:=1; i:=1;
repeat
s1:='';
While s[i]=' ' do Inc(i);
if i>Length(s) then break;
While s[i]<>' ' do
begin
s1:=s1+s[i];
Inc(i);
end;
A[n]:=s1;
Inc(n);
until i>Length(s);
s1:=A[n-1];
n:=0;
for i:=1 to Length(s1) do
if s1[i]='a' then Inc(n);
Writeln('Bukv -a- = ',n);
Readln;
end.