program leapyear
implicit none
integer ::y
print*,"enter a year "
read*,y
if(mod(y,4).EQ.0.or.mod(y,400).EQ.0)then
print*,y," is a leapyear "
else
print*,y," is not a leapyear "
endif

End Program