Fabonacci series between a given number

                                                   
      IDENTIFICATION DIVISION.
       PROGRAM-ID.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 M PIC 9(3).
       77 N PIC 9(3).
       77 A PIC 9(3) VALUE 0.
       77 B PIC 9(3) VALUE 1.
       77 C PIC 9(3) VALUE 0.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY "Enter initial value ".
           ACCEPT M.
           DISPLAY "Enter Final value ".
           ACCEPT N.
           DISPLAY SPACE.
           DISPLAY "Fibonacci series between " M " and " N " is ".
           PERFORM INITIAL-PARA UNTIL C > M.
           PERFORM ACTUAL-PARA UNTIL C = N OR > N.
           STOP RUN.