PROGRAM PonerNotas
! Variables
INTEGER :: la_nota

!Captar datos de entrada
PRINT*, "¿Que nota has obtenido?"
READ*,la_nota

IF (la_nota<0) .OR. (la_nota>10) THEN
	PRINT*,"La nota escrita no es válida"
ELSE IF (la_nota<5) THEN 
	PRINT*,"Estas Suspenso"
ELSE IF (la_nota.LT.7) THEN 
	PRINT*,"Estas Aprobado"
ELSE IF (la_nota<9) THEN 
	PRINT*,"Tienes un Notable"
ELSE IF (la_nota=9) THEN 
	PRINT*,"Tienes un Sobresaliente"
ELSE 
	PRINT*,"Enhorabuena, tienes matricula"
ENDIF

END