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>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.