program string_7-

var s:string-

k,l,i:integer-

begin write(‘введите строку:’)-

readln(s)-k:=0-l:=0-

for i:=1 to length(s) do

begin if s[i]=’A’ then k:=k+1-

if s[i]=’B’ then l:=l+1

end-

writeln(‘A=’,k)-

writeln(‘B=’,l)-

if k&gt-l then

begin for i:=1 to length(s) do

if s[i]=’B’ then begin delete(s,i,1)-

i:=i-1

end-

end-

write(s)-

readln-

end.