Pascal/Turbo Pascal - programa en free pascal

{A ver esto es lo que pides}

 program cambianum;

 uses

    crt;

  var

    numeros : array[1..10] of integer;

    n : integer;

  begin

      n := 1;

      while n <> 11 do

      begin

      clrscr;

      writeln('Entre 10 numeros enteros : ');

      write('Numero  ',n,' : ');

      readln(numeros[n]);

      n := n + 1;

      end;

      clrscr;

      writeln('Los Numeros Escritos son');

      writeln;

      for n := 1 to 10 do

      write(numeros[n]);

      writeln;

      writeln('La Imversion del Array Es ');

      writeln;

      for n := 10 downto 1 do

      write(numeros[n]);

      writeln;

      writeln('Pulse [Enter]');

      readln;

  end.