PROGRAM Cift_Tek
!--------------------------------------------------------
! 05prg02.f95
! Bir tamsayının çift olup olmadığını sınar 
!--------------------------------------------------------
INTEGER :: X

    PRINT *,"Bir sayi girin:"
    READ *,X

    ! X/2 den kalanı sorgula
    IF( MOD(X,2) == 0 ) THEN
      PRINT *,"sayi cifttir"
    ELSE
      PRINT *,"sayi tektir"
    END IF

END PROGRAM