COBOLで書いてみた！
整数の1から1000を足す
identification division.
program-id. prog.
environment division.
data division.
working-storage section.
01 wk-area.
03 wk-gokei pic 9(09).
03 wk-tasu pic 9(09).
03 wk-edit pic zzz,zzz,zz9.
procedure division.
initialize wk-area.
move 1 to wk-tasu.
perform until wk-tasu > 1000
compute wk-gokei = wk-gokei + wk-tasu
compute wk-tasu = wk-tasu + 1
end-perform.
move wk-gokei to wk-edit.
display "Gokei : "wk-edit.
stop run.