Program ex403; const NN = 7;

Program ex403;
const
  NN = 7;
Type
  Arr1 = array[0..30] of char;
var
  s : arr1;
  k, p : integer;
function fun1(s : arr1; a : char; n : integer) : integer;
var
  j : integer;
begin
  j := n;
  while (a < s[j]) and (j > 0) do dec(j);
  fun1 := j;
end;
function fun2(s : arr1; a : char; n : integer) : integer;
var
  j : integer;
begin
  j := 1;
  while (a > s[j]) and (j < n) do inc(j);
  fun2 := j;
end;
begin
  for k:=1 to NN do
    s[k] := chr(ord('A') + 2 * k + 1);
  k := fun1(s, 'M', NN) + fun2(s, 'M', NN);
  writeln(k);
end.