IDENTIFICATION DIVISION.
       PROGRAM-ID. primeno.

       DATA DIVISION.
        01 num1 PIC 999.
        01 i1 PIC 999.
        01 res1 PIC 99.
        01 rem1 PIC 99.
        01 flag1 PIC 9 value 0.

       PROCEDURE DIVISION.
        para1.
           DISPLAY "ENTER NUMBER FOR CHECKING PRIME OR NOT".
           ACCEPT num1.

           PERFORM VARYING i1 FROM 2 BY 1 UNTIL i1>=num1
              DIVIDE num1 BY i1 GIVING res1 REMAINDER rem1
              IF rem1=0 THEN MOVE 1 TO flag1
      *         DISPLAY i1 "   " rem1
           END-PERFORM.

           IF flag1=0 THEN DISPLAY num1 " is prime"else 
             DISPLAY num1 " IS NOT A PRIME NO". 
           
          STOP-RUN.


/**********************************************************/

ENTER NUMBER FOR CHECKING PRIME OR NOT
23
23 is prime

ENTER NUMBER FOR CHECKING PRIME OR NOT
22
22 IS NOT A PRIME NO
/**********************************************************/