SUBROUTINE VALORES(TERMOS, D, PA, SOMA)

	INTEGER :: TERMO, TERMOS, D, SOMA
	INTEGER, DIMENSION(TERMOS) :: PA

	DO TERMO=2, TERMOS

		PA(TERMO)=PA(TERMO-1)+D

	END DO

	SOMA=SUM(PA)

END SUBROUTINE VALORES
SUBROUTINE SAIDA(N, DIF, VETOR, J, NOME)

	INTEGER :: N, DIF, I, J
	INTEGER, DIMENSION(N) :: VETOR
	CHARACTER(50) :: NOME

	NOME="Saida5.txt"

	OPEN(1, file=NOME)
		WRITE(1,1) "Quantidade de termos =", N
		WRITE(1,1) "Diferença entre dois termos subsequentes =", DIF
		WRITE(1,*)

		DO I=1, N

			WRITE(1,2) "PA(", i,") =", VETOR(i)

		END DO
		WRITE(1,*)
		WRITE(1,1) "Soma de todos os termos =", J

	CLOSE(1)

	1 FORMAT(A, 1x, i5)
	2 FORMAT(A, i2, A, i5)

END SUBROUTINE SAIDA