کد فرترن برنامه ای که دو عدد رو میگیره و مقسوم علیه های مشترک رو نشون میده
PROGRAM mas
1. IMPLICIT NONE
2. INTEGER::n,s,i,a,m
3. READ*,m,n
4. IF (n>m) THEN
5. a=m
6. m=n
7. n=a
8. END IF
9. DO i=1,n
10. IF (MOD(n,i)==0) THEN
11. IF (MOD(m,i)==0) THEN
12. PRINT*,i
13. END IF
14. END IF
15. END DO
16. END