!
! Questão 1 da Lista 08 de exercícios para sala de aula - Capítulo F90/*
!
PROGRAM CRIACAO_ARQUIVO_DE_ALUNOS
   IMPLICIT NONE
   INTEGER :: MATRIC
   CHARACTER (LEN = 20) :: NOME
   REAL :: NOTA1, NOTA2, NOTA3, MEDIA
   OPEN (10, FILE='ALUNOS.DAT')
   WRITE (*, *) "INFORME O NOME, MATRICULA E TRES NOTAS DOS ALUNOS. TERMINE COM UM ALUNO DE NOME FIM"
   READ(*, "(A20)")NOME
   DO WHILE (NOME .NE. "FIM")
      READ (*, *) MATRIC, NOTA1, NOTA2, NOTA3
      WRITE(10, 1) MATRIC, NOME, NOTA1, NOTA2, NOTA3, (NOTA1+NOTA2+NOTA3)/3
      1 FORMAT(I8, A20, 4F4.1)
      WRITE (*,*) "PROXIMO:"
      READ(*, "(A20)")NOME
   END DO
   WRITE (10, 1) 0, NOME, 0., 0., 0., 0.
   ENDFILE 10
   STOP 
 END PROGRAM CRIACAO_ARQUIVO_DE_ALUNOS