PROGRAM Indovina
   IMPLICIT NONE
   REAL :: x
   INTEGER :: n=1,m
   
   DO WHILE(n /= 0)
      PRINT*,"Indovina il numero (intero da 1 a 10) - 0 per terminare:"
      READ*,n
      CALL RANDOM_NUMBER(x)
      m = x*10.0 + 1
      IF ( n == m ) THEN
         PRINT*,"Hai indovinato! N =",n
      ELSE
         PRINT*,"Peccato, il numero giusto era ",m
      ENDIF
   END DO    
   
   STOP
END PROGRAM Indovina