Program excpl; v

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.

程序输出结果为：_________________________________