program main
 implicit none 
 integer :: y
 print*, "enter the year"
 read*, y 
 if (mod(y,100)== 0)then 
 if (mod(y,400)== 0) then 
 print*, "leap year"
 else 
 print*, "not leap year"
 end if 
 else if (mod(y,4) == 0) then 
 print*, "leap year"
 else 
 print *, "not leap year"
 end if 
 end program main