Prime number

       Identification Division.
       Program-ID.
       Environment Division.
       Data Division.
       Working-Storage Section.
       77 Min PIC 9(4).
       77 Max PIC 9(4).
       77 I PIC 9(4).
       77 J PIC 9(4).
       77 K PIC 9(4).
       77 Counter PIC 9(4).
       77 Rem PIC 9(3)
       Procedure division.
       Main-Para.
           Display "Enter Minimum Value (m) : ".
           Accept Min.
           Display "Enter Maximum Number (n) : ".
           Accept Max.
           IF Min > Max
               DISPLAY "Lower limit greater than Upper"
               STOP RUN.
           DISPLAY "Prime numbers between " Min " and " Max " are :".
           Perform para-1 Varying I From Min BY 1 Until I > Max.
           DISPLAY "Program is terminated."
           Stop Run.
       Para-1.
           Compute Counter = 0.
           Perform Para-2 Varying J From 2 BY 1 Until J > (I / 2).
           If Counter = 0
               Display I.
       Para-2.
           Divide I BY J Giving K Remainder Rem.
           IF Rem = 0
               Compute Counter = Counter + 1.