PROGRAM aula IMPLICIT NONE CHARACTER(LEN=10) :: Nome WRITE (*,*) "Digite seu nome" READ (*,*) Nome WRITE (*,*) "Bom-dia ", Nome, "!" END PROGRAM aula