(* Mostrar los elementos de un array inicializado *)
program ArraysMostrar;
const
N = 6;
datos: array[1..N] of integer =
(10, 20, 15, 12, 30, 8);
var
i: integer;
begin
for i := 1 to N do
write( datos[i], ' ');
writeLn;
end.