کد فرترن برنامه ای که تعداد دلخواه عدد رو میگیره و اونا رو به ترتیب نزولی(از بزرگ به کوچک) مرتب میکنه
عدد کامل عددیه که مجموع مقسوم علیه های غیر از خوش برابر خود عدد بشه.مثل عدد 6 که مجموع 1 و2 و3 که مقسوم عیه های غیر خودش هستن میشه 6.
PROGRAM kamel
1. IMPLICIT NONE
2. INTEGER::n,s,i
3. READ*,n
4. s=0
5. DO i=1,(n/2)+1
6. IF (MOD(n,i)==0) THEN
7. s=s+i
8. END IF
9. END DO
10. IF (s==n) THEN
11. PRINT*,"yes"
12. ELSE
13. PRINT*,"no"
14. END IF
15. END PROGRAM
