Program excpl;
var
x，y，y1，jk，j1，g，e：Integcr；
a：array[l．．20]of 0．．9；
begin
x：＝3465； y：＝264； jk：＝20；
for j1：= 1 to 20 do a[j1]：＝ 0；
while y＜ ＞0 do
begin
y1：=y mod 10；
y：= y div 10；
while y1＜＞0 do
begin
g：=x；
for e：＝ Jk downto 1 do
begin
g：＝g＋a[e]；
a[e ]：= g mod 10；
g：= g div 10
end;
y1：＝ y1－ 1
end；
jk：＝jk-1
end；
j1=1；
while a[j1]＝0 do j1：=J1+1；
for Jk：=j1 to 20 do write(a[jk]:4)
WRITELN
End.

输出：9 1 4 7 6 0