Array

Uses Wincrt;
Var bilangan : array[1..50]of  integer;
begin
     clrScr;
     Bilangan[1]:=3;
     Bilangan[2]:=29;
     Bilangan[3]:=30;
     Bilangan[4]:=31;
     Bilangan[5]:=23;
     Bilangan[6]:=35;
     Bilangan[7]:=38;
     Bilangan[8]:=45;
     Bilangan[9]:=48;
     Bilangan[10]:=50;
     Bilangan[11]:=15;
     Bilangan[12]:=20;
     Bilangan[13]:=30;
     Bilangan[14]:=10;
     Bilangan[15]:=36;
     Bilangan[16]:=28;
     Bilangan[17]:=25;
     Bilangan[18]:=80;
     Bilangan[19]:=31;
     Bilangan[20]:=75;

writeln('nilai variabel bilangan ke 5=',bilangan[5]);
readln;
end.