(* Mostrar los elementos de un array,
* en orden descendente *)
program ArraysMostrarDesc;
const
N = 6;
var
datos: array[1..N] of integer;
i: integer;
begin
datos[1] := 10;
datos[2] := 20;
datos[3] := 15;
datos[4] := 12;
datos[5] := 30;
datos[6] := 8;
for i := N downto 1 do
write( datos[i], ' ');
writeLn;
end.