program program4；
　 var
　 a： array[0．．5] of integer；
　 sum，n，max，i，j，k：integer；
　 cover：array[0．．22000]of boolean；
　 begin
　　 read (a[5]，a[4]，a[3]，a[2]，a[1]，a[0])；
　　 if ((a[5]=0) and (a[3]=0) and (a[1]=0)) then
　　 begin
　　　a[5]：=a[4]；a[4]：=a[2]； a[3]：=a[0]； a[2]：=0 a[0]：=0；
　　 end：
　　 for i：=0 to 5 do
　　 if (a[i]>10) then a[i]：=10+(a[i] mod 2)；
　　 sum：=0：
　　 for i：=0 to 5 do sum：=sum+a[i]*(6-i)；
　　 if ((sum mod 2) <>0) then　　begin
　　　　　　　　　　　　　　　　　　writeln(`Can``t be divided.`)；
　　　　　　　　　　　　　　　　　　Exit;
　　　　　　　　　　　　　　　　End;
　　 sum：=sum div 2； max：=0； cover[0]：=True；
　　 for i：=1 to sum*2 do cover[i]：=False；
　　 for i：=0 to 5 do
　　 begin
　　　 j：=0；
　　　 while (j<a[i])do
　　　　 begin
　　　　　 for k：=max downto 0 do
　　　　　　 begin if (cover[k]) then cover[k+6-i]：=True；end；
　　　　　max：=max+6-i： j：=j+1；
　　　　 end;
　　　end;
　　　if (cover[sum]) then writeln (`Can be divided.`)
　　　　　　　　　　　else writeln(`can``t be divided.`)；
　 end．
输入：4 7 9 20 56 48 输入：1000 7 101 20 55 1 输入：2000 5 l 1 0 0
输出：Can't be divided. Can be divided. Can't be divided.