Program HOC24;
var i,d: byte;
s: string;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]='b' then d:=d+1;
writeln('Co ',d,' ki tu b');
write('Xau moi sau khi da xoa la: ');
for i:=1 to length(s) do if s[i]<>'b' then write(s[i]);
readln
end.