2. Калькулятор (100 баллов) 2 секунды и 64 Мб памяти В старинном калькуляторе работают…

vari,x: integer; A,B: text; s: string; beginx: =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.