Contoh Array For to Do

program contoh_array;
uses wincrt;

var
angka : array [1..10] of integer;
i     : integer;

begin
     writeln(':::ARRAY FOR TO DO:::');
     writeln;
     for i := 1 to 10 do
begin
    
     write('Masukkan kedalam Index ke-',i,' = ');
     readln(angka[i]);

end;
    clrscr;
    writeln(':::Nilai Index:::');
    writeln;
    for i:= 1 to 10 do

begin
   
     writeln('Nilai Index ke-',i,' = ',angka[i]);
     end;

end.