program even
   implicit none
   integer::num
   read(*,*) num
   if (mod(num,2)==0) then
      write(*,*) num, " is even"
   else
      write(*,*) num, " is odd"
   endif
end program
