IDENTIFICATION DIVISION.
        PROGRAM-ID. eva.

      DATA DIVISION.

        WORKING-STORAGE SECTION.

        01 calculate PIC X(6).
         88 add1 VALUES "1","add".
         88 sub VALUES "2","sub".
         88 mul VALUES "3","mul".
         88 div VALUES "4","div".
         88 rem VALUES "5","rem".

        77 choice PIC X(6).
        77 a PIC 9(4).
        77 b PIC 9(4).
        77 c PIC 9(6).

      PROCEDURE DIVISION.
        display "1 ) ADD ".
        DISPLAY "2 ) SUB ".
        DISPLAY "3 ) MUL ".
        DISPLAY "4 ) DIV ".
        DISPLAY "5 ) REM ".

        DISPLAY "ENTER THE OPERATION TO BE PERFORMED".
        ACCEPT choice.
        DISPLAY "ENTER TWO OPERANDS".
        ACCEPT a.
        ACCEPT b.

     
        EVALUATE choice
         WHEN "1"  PERFORM add-para
         WHEN "2"  PERFORM sub-para
         WHEN "3"  PERFORM mul-para
         WHEN "4"  PERFORM div-para
         WHEN "5"  PERFORM rem-para
        END-EVALUATE.

       if calculate="1" or "add"
         PERFORM add-para.

       disp-para.
         DISPLAY "THE RESULT IS " c.

       STOP RUN.

       add-para.
         ADD a b GIVING c.

       sub-para.
         SUBTRACT a FROM b GIVING c.

       mul-para.
         MULTIPLY a BY b GIVING c.

       div-para.
         DIVIDE a INTO b GIVING c.

       rem-para.
         DIVIDE a INTO b GIVING a REMAINDER c.



OUTPUT
*********************************

1 ) ADD 
2 ) SUB 
3 ) MUL 
4 ) DIV 
5 ) REM 

ENTER YOUR CHOICE
1
ENTER TWO OPERANDS
25
30
THE RESULT IS 000055