Contoh array

program contoh;
uses wincrt;
var bil:array[1..50] of integer;
begin
clrscr;
bil[1]:=3;
bil[2]:=29;
bil[3]:=30;
bil[4]:=31;
bil[5]:=23;
writeln('nilai variabel bilangan ke 3= ',bil[3]);
readln;
end.