GREATER OF 2 NUMBERS

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FIBONACCI.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 A PIC S99 VALUE -1.
       77 B PIC 99 VALUE 1.
       77 C PIC 99 VALUE 1.
       PROCEDURE DIVISION.
       PARA1.
           DISPLAY "ENTER THE VALUE OF A".
           ACCEPT A.
           DISPLAY "ENTER THE VALUE OF B".
           ACCEPT B.
           IF A > B
               DISPLAY " A IS GREATER"
           ELSE
               DISPLAY "B IS GREATER"
           STOP RUN.