有A,B,C,D,E五位候选人参加班长竞选，全班同学投票，得票最高者将被选为班长。已知全班人数不超过60人，现要设计一个计票程序，计算各位候选人的得票数，并输出班长的编号。
输入样例：ABAD*CBACBB
（被选编号序列,废票用*表示）
输出样例：B （被选出的班长编号）

Var ps:array[‘A’..‘E’] of integer;
ms,k,rs:integer;
Phs:string;
Bz,C:char;
Begin
  Readln(phs);
  Rs:=length(phs);
  For c:=‘A’to ‘E’do    ps[c]:=0     ;
  For k:=1 to rs do
If phs[k] in     ['A'..'E']    then
  Ps[phs[k]]:=    ps[phs[k]]+1     ;
    ms   :=0;
  For c:=‘A’to ‘E’ do
If     ps[c]>ms    then
 begin
   ms:=ps[c];bz:=    c    
 end;
  writeln(bz)
end.