program array_1_ dimensi,;
uses crt;
var
nilai:array[0.2]of integer
begin
clrscr;
nilai[0]:=10;
nilai[1]:=20;
nilai[2]:=30

writeln(nilai:',nilai[0]);
writeln(nilai:',nilai[1]);
writeln(nilai:',nilai[2]);

readln;
end.