Program ARRAY Pada Cobol

       identification division.
       program-id. array.
       environment division.
       data division.
       working-storage section.
       01 awal.
           02 nama pic x(10) occurs 10 times.
       77 i pic 9(2).
       77 n pic 9(2).
       procedure division.
       mulai.
           display 'input jumlah nama : '.
           accept n.
           perform hasil varying i from 1 by 1 until i = n.
       hasil.
           display 'nama ke-' , i , '?'.
           accept nama(i).
       ulang.
           display space.
           perform tampil varying i from 1 by 1 until i=n.
       tampil.
           display nama(i).
       akhir.
           stop run.