program evenodd

integer a

write(*,101,ADVANCE="NO")
read(*,102)a

if (mod(a,2) .eq. 0) write(*,103)a
   else   write(*,104)a


101  format("Enter a number: ")
102  format(i7)
103  format(i7," Is Even.")
104  format(i7," Is Odd.")


end