integer a,i,k,sum read(*,*)a k=int(a/2+0.1) sum=0 do 10 i=1,k if (mod(a,i).eq.0) sum=sum+i10 continue if (sum.eq.a) then write(*,*)'yes' else write(*,*)'no' endif pause end
