program test_rekurencia

implicit none
integer :: n
real(4):: E

E = 1.0 - 1.0/exp(1.0)
do n = 1, 12
    E = 1.0 - n*E
    write(*,'(A2,I2,A4,F12.8)') 'E(',n,') = ', E
enddo

write(*,*)

E = 0.0
do n = 20, 13, -1
    E = (1.0 - E)/n
    write(*,'(A2,I2,A4,F12.8)') 'E(',n-1,') = ', E
enddo

end program