NuSinau

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.