E simplu.
program brianly;
var a:string[20];
function t/f(x:string):boolean;
var n,i,j,k:integer;
begin
n:=lenght(a);
for i:=1 to n do
if x[i]='A' then k:=k+1
else if x[i]='B'= then j:=j+1;
if k>j then t/f:=true
else t/f:false;
end;
begin
readln(a);
write(t/f(a));
end.