somatorio.f95

program somatorio
implicit none

integer :: i, n=10, soma = 0
character :: continuar*1

i=1
soma =0
continuar = "s"
do while ( continuar == "s" )

    do while ( n > 0)
        soma = soma + i
        print*,'n: ',n,'  soma: ',soma
        i = i + 1
        n = n - 1
    enddo

    print*,"______________________________________"
    print*,'voce quer continuar? [s]im [n]ão '
    read(*,*)continuar
    if (continuar == "s") then
        i = 1
        soma = 0
        n = 10
        print*,"===================================="
    endif
enddo

stop ">>>Programa Finalizado"
end program somatorio