С какими идеями Макиавелли и Мора ты согласен, а с какими - нет? Объясни свою позицию. Сделай вывод по проблеме.

var
i,x: integer;
A,B: text;
s: string;
begin
x:=1;
assign(A,'input.txt');
reset(A);
read(A,s);
close(A);
for i:= 1 to length(s) do
 begin
 if s[i] = 'A' then x:=x*2;
 if s[i] = 'B' then x:=x+1
 end;
assign(B,'output.txt');
rewrite(B);
write(B,x);
close(B); 
end.   

C# без работы с файлами. Если задача c informatics.mccme.ru должно пройти.

string cmd = Console.ReadLine();     
int ans = 1; 
for (int i = 0; i < cmd.Length; i++) {
    if (cmd[i] == 'A')
        ans *= 2;
    else if (cmd[i] == 'B')
        ans++;
}
Console.WriteLine(ans);