Calcula Areá Cobol

       identification division.
       program-id.                           calcarea.
       author.                               dionatan.
       data division.
       working-storage section.
       77 largura                            pic 9(003) value zeros.
       77 altura                             pic 9(003) value zeros.
       77 area-result                        pic 9(006) value zeros.

       procedure division.
       inicio.
        display erase
           display "Calculo de area quadrado retangulo" at 0521
           display "Largura: " at 1010
           display "Altura: " at 1210
           accept largura at 1019
           accept altura at 1219
           multiply largura by altura giving area-result
           display "Area: " at 1410 area-result
       stop run
       .


                                         Print Screen da Tela Net Express

                                        Resultado da Nossa Aplicação