var s: string;
d: byte;
Begin
Write('nhap xau: '); readln(s);
D:=0;
For i:=1 to length(s)-1 do
If (s[i]=' ') and (s[i+1]<>' ')
Then s[i+1]:=upcase(s[i+1]);
For i:=1 to length(s) do if s[i]='B'
Then inc(d);
Writeln('xau sau khi in hoa: ', s);
Write('ki tu "B" xuat hien ', d, ' lan');
Readln
End.