program excp2 var

program excp2

var

i，j：integer;；

a ：array[1．．14] of integer；

procedure sw(i1，j1：Integer)；

var k1： Integer；

begin

for k1：= 1 to（j1- i1 1） div 2 do

begin

a[i1＋k1-1]：=a[i1＋ k1－1]＋a[j1－k1 1]；

a[j1－k1＋1]：＝a[i1＋k1－1]－a[j1－k1 1];

a[i1 k1－1]：=a[i1-k1 1]－a[J1－k1 1]；

end；

end；

begin

j：=211；

for i:=1 to 14 do

begin

a[i]:=i; J：=j-i

end；

sw（1,4）； sw（ 5，10）;

Sw（11，14）；sw（1，14）；

For i：=1 to 14 do

begin

If j mod I=1 then write (a[i]:3)；

j：=j－a[i]；

end;

WRITElN

end.

程序运行结果是：________________________________________