程序错误很多，应该如下修改才可能运行：
var i,j,l,n,k,s,t:integer;
b:array [1..10] of 0..9;
begin
readln(l,n);s:=1; k:=1; t:=1;
while s
s:=s-t; n:=n-s-1;
for i:=1 to 10 do b[i]:=0;
j:=11;
while n>0 do
begin j:=j+1; b[j]:=n mod l; n:=n div l; end;
for i:=10-k+1 to 10 do write(chr(ord('a')+b[i]));
end.
正确程序输入：4 123
输出的结果为：aaaaa
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024