var stri,strkq: string; i,z: byte;
begin
    write('Nhap mot chuoi: ');
    readln(stri);
    
    for i:=1 to length(stri) do
    begin
        if (i = 1) then strkq:=strkq+upcase(stri[i]) else strkq:=strkq+stri[i];
        if (stri[i] = 'B') then inc(z);
    end;
    
    writeln('Chuoi da in hoa ki tu dau la: ',strkq);
    writeln('So luong chu B: ',z);
    readln;
end.

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.