guess_number

program main
  implicit none

  integer::n,i
  real::x

  !random integer number between 1 and 1000
  call random_number(x)
  n=int(x*1000)+1
  !print *,n

  do
      print *, "Guess the number n: "
      read(*,*) i

      if (i<n) then
         print *, "n is greater."
      elseif (i>n) then
         print *, "n is lower."
      else
         print*,"You have guessed right!"
         exit
      endif
  enddo
end