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.
输出：11