pascal在三个候选人A（代号为1）、B（代号为2）和C（代号为3）中，选一个班长，现有一批已投的选票

program toupiao;
var aa:array[1..10000] of longint;
i,j,a,b,c,total:longint;
begin
i:=0;
repeat
inc(i);
read(aa[i]);
until aa[i]=-1;
dec(i);
for j:=1 to i do