Contador Cobol

       identification division.
       program-id.                        contagem.
       author.                                Dionatan.
       data division.
       working-storage section.
       77 contador                       pic 999 value zeros.
       procedure division.
       inicio.
       add 1 to contador
       display contador
       if contador=100 then
       stop run
        else
             go to inicio
          end-if
          .