program Orden;

uses
    crt;

Type
  vecnum=Array[1..10000] of Word;


procedure carga(VAR v:vecnum;N:Word);

VAR
  i:Word;

begin
  for i:=1 to N do
  begin
    ClrScr;
    Write('Ingrese el numero ',i,': ');
    ReadLn(v[i]);
  end;
end;

procedure mostrar(v:vecnum;N:Word);

VAR
  i:Word;

begin
  for i:=1 to N do
    WriteLn(v[i]);
end;

procedure baraja(VAR v:vecnum;N:Word);

VAR
  i,j,aux:Word;

begin
  for i:=2 to N do
  begin
    aux:=v[i];
    j:=i-1;
    while (aux<v[j]) and (j>0) do
    begin
      v[j+1]:=v[j];
      j:=j-1;
    end;
    v[j+1]:=aux;
  end;
end;


VAR
  N:Word;
  vnum:vecnum;

begin
  Write('Ingrese la cantidad: ');
  ReadLn(N);
  Carga(vnum,N);
  Baraja(vnum,N);
  Mostrar(vnum,N);
  ReadLn;
end.