Prime Digits

Program    NAme

        Integer  Arr(10000)
        Integer  j, C, ModC, i, LastNum, SqrtC

        Print *, 'C = (C> 0)'
        Read(*,*) C

        LastNum = 1

        Do i = 1, 10000
           Arr(i) = 0
        Enddo

        Arr(1) = 2
        Arr(2) = 3
        Arr(3) = 5
        Arr(4) = 7
        LastNum = 5

        If (C > 10) then

           Do i = 11, C, 2


                Do j = 1, (LastNum -1), 1

                   ModC = MOD(i,Arr(j))
                   If (ModC .EQ. 0) Then
                      Goto 14
                   EndIf
                EndDo


               Arr(LastNum) = i
               LastNum = LastNum+1

 14     EndDo
        EndIf

        Do i = 1, LastNum-1
           if (Arr(i) <= C) then
                     print *, 'Arr(',i,') = ', Arr(i)
           Endif
        Enddo
        Read (*,*)
        End