#include<iostrem>
#include<cstring>
using namespace std;
int main()
{char v[100']
int i,nra,nrb;
nra=0;nrb=0;
cin.get(v,100)
for(i=0;i<n;i++)
{if(strchr(v,'A')=!0)
nra++;
if(strchr(v,'B')=!0)
nrb++;}
if(nra>nrb)
cout<<"True";
else
cout<<"False";
Asta e in C++,in Pascal nu stiu daca e la fel dar sper sa te ajute cu ceva