Program Sederhana COBOL : Segitiga (looping)

Codingan :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. LOOPING.
       AUTHOR. JESSY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 ANGKA PIC 99.
       01 L PIC 99.
       01 K PIC 99.
       01 J PIC 99.
       SCREEN SECTION.
       01 CLS.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY CLS.
           PERFORM TAMPILKAN
           VARYING L FROM 5 BY -1 UNTIL L <2
           AFTER K FROM 1 BY 1 UNTIL K > L.
       TAMPILKAN.
           MOVE K TO J
           DISPLAY ( , ) J, ' '.
           IF L = K DISPLAY SPACE.
       SELESAI.
           STOP RUN.

OUTPUT :