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.

      程序输出结果为：_________________________________