NESTED IF IN COBOL

       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.
           DISPLAY "ENTER THE VALUE OF C".
           ACCEPT C.
           IF A > B
               IF A > C
                   DISPLAY " A IS GREATER"
               ELSE
                   DISPLAY "C IS GREATER"
           ELSE IF B > C
               DISPLAY "B IS GREATER"
               ELSE DISPLAY "C IS GREATER".
           STOP RUN.