IDENTIFICATION DIVISION.
PROGRAM-ID.  IF.
AUTHOR.      CARLOS ALBERTO DORNELLES.

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WS-VARIAVEIS.
    05  NUM1           PIC 9(001)  VALUE ZEROES.
    05  NUM2           PIC 9(001)  VALUE ZEROES.
    05  RESULT         PIC 9(002)  VALUE ZEROES.
    05  OPERATOR       PIC X(001)  VALUE SPACES.

PROCEDURE DIVISION.

001-INICIO.

    PERFORM 3 TIMES
       DISPLAY "Insira o primeiro número   : " WITH NO ADVANCING
       ACCEPT NUM1
       DISPLAY "Insira o segundo número    : " WITH NO ADVANCING
       ACCEPT NUM2
       DISPLAY "Insira a operação (+ or *) : " WITH NO ADVANCING
       ACCEPT OPERATOR

       IF OPERATOR = "+" THEN
          ADD NUM1 NUM2 GIVING RESULT
       END-IF

       IF OPERATOR = "*" THEN
          MULTIPLY NUM1 BY NUM2 GIVING RESULT
       END-IF

       DISPLAY "Result is = ", RESULT
    END-PERFORM.

    STOP RUN.