c  ***************************************************************** 
c  *                                                               *
c  *===============================================================*
c  *           PROGRAMA PARA CALCULAR [C] = [A][B]                *
c  *===============================================================*
c  *                                                               *
c  *****************************************************************
c
      program Aula1
c
      implicit none
c
c--- Declaração de variaveis
      integer NTERMOS 
      real*8  n1, n2, n3
      integer j
      real*8  GN
c
      WRITE(*,*)' ====================================================='
     $
      WRITE(*,*)' *   PROGRAMA PARA AVALIAR A SEQUENCIA DE FIBBONACCI *'
     $        
	WRITE(*,*)' *     Curso de Introdução a Informatica             *'
     $        
      WRITE(*,*)' *     Prof: Alexandre da Silva Galvão               *'
     $        																												
      WRITE(*,*)' ====================================================='
c
   10 format(/,' Numero de termos da sequencia=')
c
c--- ABERTURA DE UM ARQUIVO DE SAIDA
c    =============================
      open(unit=2,file='SAIDA.txt',status='unknown')
c
c--- OBTENÇÃO DA SEQUENCIA
c    =============================
      write(*,10) 	 
	read(*,*)NTERMOS

      N1 = 1.d0
	N2 = 1.d0
c
	write(2,20)
      write(2,30)1, N1,  1.0
	write(2,30)2, N2,  1.0 
c
   20 format(/,' N   TERMO     NUMERO_DE_OURO ')
c
      If ( NTERMOS >= 3) then   	 
       Do J=3,NTERMOS
	    N3 = N2 + N1
	    GN = N3 / N2
	    write(2,30) J, N3, GN
	    N1 = N2
	    N2 = N3
       End do
	End If
c
   30 format(/i5,(2x,5e15.6),(2x,5e15.6))
c
      close (2)
      stop  'FIM DA ANALISE: VERIFIQUE OS RESULTADOS !!!'
c      
	END        
c

    Source: geocities.com/br/intinf1

               ( geocities.com/br)