Contador Programação 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
.