Contoh Pemrograman Pascal dengan Array

Hasil belajar saya malam ini mengenai materi array pada pemrogram pascal,

berikut scriptnya

uses crt;

const

max=6;

type

lagu=array[1..max] of string[10];

var

jnslagu:lagu;

i:integer;

begin

for i:=1 to max do

jnslagu[1]:='POP';

jnslagu[2]:='dangdut';

jnslagu[3]:='keroncong';

jnslagu[4]:='rock';

jnslagu[5]:='campursari';

jnslagu[6]:='Pop Punk';

for i:=1 to max do

writeln(i, '. ',jnslagu[i]);

end.

dan outputnya