PROGRAM Bucle 
IMPLICIT NONE 
        
! Variables 
INTEGER :: n, k 
REAL :: suma 
 
! Introduccion de datos 
PRINT*,'Dame el valor de n:'   ;  READ*,n 
  
! Calculos 
suma = 0 
DO k=1,n 
  suma=suma+(3.0 + k**2)/(4+7*k) 
ENDDO 
 
! Salida del resultado 
PRINT *,'El resultado es ',suma 
END