PROGRAM Artik_Yil
!--------------------------------------------------------
! 05prg03.f95
! Bir yılın artık olup olmadığını sınar
!--------------------------------------------------------
INTEGER :: Yil

  PRINT *, "Bir yil girin:"
  READ *, Yil

  IF( MOD(Yil,4) == 0 .AND. MOD(yil, 100) .NE. 0  &
      .OR. MOD(Yil, 400) == 0 ) THEN
       PRINT *, Yil, " artik yil"
  ELSE
       PRINT *, Yil, " artik yil degil"
  END IF

END