F90: Introdução aos vetores

PROGRAM aula
	IMPLICIT NONE
	INTEGER :: Vetor(5), i = 0
 
	WRITE (*,*) "Digite 5 números inteiros entre 0 e 999"
	DO i = 1, 5
		READ (*,*) Vetor(i)
	END DO
 
	DO i = 1, 5
		WRITE (*,"(I3.3)") Vetor(i)
	END DO
END PROGRAM aula