!
! Questão 4 da Lista 08 de exercícios para sala de aula - Capítulo F90/*
!
PROGRAM CRIACAO_ARQUIVO_DE_ALUNOS
   IMPLICIT NONE
   INTEGER :: MATRIC
   CHARACTER (LEN = 30) :: NOME
   REAL :: NOTA1, NOTA2, NOTA3, MEDIA
   OPEN (10, FILE='ALUNOS.DAT')
   OPEN (20, FILE='APROVADOS.DAT')
   OPEN (30, FILE='FINAL.DAT')
   OPEN (40, FILE='REPROVADOS.DAT')
   1 FORMAT(I8, A20, 4F4.1)  
   READ (10, 1) MATRIC, NOME, NOTA1, NOTA2, NOTA3, MEDIA    
   DO WHILE (NOME .NE. "FIM")
     IF (MEDIA>=7.) THEN
       WRITE(20,1) MATRIC, NOME, NOTA1, NOTA2, NOTA3, MEDIA
     ELSE
       IF(MEDIA>=4) THEN
         WRITE(30,1) MATRIC, NOME, NOTA1, NOTA2, NOTA3, MEDIA
       ELSE
         WRITE(40, 1) MATRIC, NOME, NOTA1, NOTA2, NOTA3, MEDIA
       END IF
     END IF
     READ (10, 1) MATRIC, NOME, NOTA1, NOTA2, NOTA3, MEDIA
   END DO
   WRITE (20, 1) 0, NOME, 0., 0., 0., 0.
   WRITE (30, 1) 0, NOME, 0., 0., 0., 0.
   WRITE (40, 1) 0, NOME, 0., 0., 0., 0.
   ENDFILE 10
   ENDFILE 20
   ENDFILE 30
   ENDFILE 40
   STOP 
 END PROGRAM CRIACAO_ARQUIVO_DE_ALUNOS