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;

writeln(‘nilai variabel bilangan ke 3=’,bilangan[3]);
readln;
end.