Equação de 2°grau

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FUNCAO-QUADRATICA.
       AUTHOR. FATEC.
       ENVIRONMENT DIVISION.
       special-names.
           decimal-point is comma.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DADOS.
           02 A         PIC 9(02).
           02 B         PIC 9(02).
           02 C         PIC 9(02).
           02 X1        PIC 9(02)V99.
           02 X2        PIC 9(02)V99.
           02 DELTA     PIC 9(02)V99.
       01 MENSAGENS-DE-TELA.
           02 MENSA1    PIC X(50) VALUE "DIGITE A: ".
           02 MENSA2    PIC X(50) VALUE "DIGITE B: ".
           02 MENSA3    PIC X(50) VALUE "DIGITE C: ".
           02 MENSA4    PIC X(50) VALUE "VALOR DE X1 = ".
           02 MENSA5    PIC X(50) VALUE "VALOR DE X2 = ".
           02 MENSA6    PIC X(50) VALUE "DELTA = ".
           02 MENSA7    PIC X(50) VALUE "FIM DO PROGRAMA".
           02 MENSA8    PIC X(50) VALUE "FUNCAO QUADRATICA".
       01 DATA-DO-SISTEMA.
           02 ANO PIC 9(02) VALUE ZEROS.
           02 MES PIC 9(02) VALUE ZEROS.
           02 DIA PIC 9(02) VALUE ZEROS.
       SCREEN SECTION.
       01 TELA01.
           02 LINE 02 COLUMN 05 PIC 9(02)/ USING DIA.
           02 LINE 02 COLUMN 08 PIC 9(02)/ USING MES.
           02 LINE 02 COLUMN 11 PIC 9(02)  USING ANO.
           02 LINE 02 COLUMN 30 PIC X(50)  USING MENSA8.
       PROCEDURE DIVISION.
           inicio.
               DISPLAY ERASE AT 0101.
               ACCEPT DATA-DO-SISTEMA FROM DATE.
               DISPLAY TELA01 AT 0101.
           entrada.
               DISPLAY MENSA1 AT 1010.
               ACCEPT  A      AT 1030.
               DISPLAY MENSA2 AT 1410.
               ACCEPT  B      AT 1430.
               DISPLAY MENSA3 AT 1810.
               ACCEPT  C      AT 1830.
       calcula.
               COMPUTE DELTA = ((B**2)-(4*A*C)).
               IF DELTA < 0
                   DISPLAY "RAIZ NEGATIVA"
               ELSE
                   COMPUTE X1=((-B)-FUNCTION SQRT(DELTA)/(2*A))
                   COMPUTE X2=((-B)+FUNCTION SQRT(DELTA)/(2*A)).
           saida.
               DISPLAY MENSA4 AT 2210.
               DISPLAY X1     AT 2230.
               DISPLAY MENSA5 AT 2610.
               DISPLAY X2     AT 2630.

           STOP RUN.