integer::d(14),c=0,s=0 read*,k read*,(d(i),i=1,k) do i=1,k do j=1,k-i c=c+1 l=d(j+1) if(l