Calcula Área Do Quadrado Retangulo Cobol

===========================================================

 identification division.

program-id.                                 calculaarea.

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 

.

===============================================