var str: string[30];
x: char;
i, k: integer;
begin
k := 0;
x := 'b ';
readln(str);
for i := 1 to length(str)
do begin if str[i] = x then k := k + 1; end;
writeln(k);
end.
Объяснение:
проси если не так
