pascal程序：{简易压缩算法}consts:string='111000';vara:array[11000] of char;b:array[11000] of integer;i,j,k,n:intege