pascal程序

program zaoshu; var a:array[1..9] of integer; //存放自然数按位分解的各位数 b:array[1..10000] of longint; //存放位置调整后的每个数 c,sum:longint; //自然数 i,j,k,n:integer; //i,j,n为循环变量；k为找到的大数的个数 l,m,code,temp:int