PROGRAM CINS(INPUT,OUTPUT);
  TYPE LL=ARRAY[1..100 ]OF INTEGER;
  VAR L:LL;
      K,N:INTEGER;

{$I B:INS.SRC}

  BEGIN
    READLN(N);
    FOR K:=1 TO N DO READ(L[K ]);
    WRITELN;
    WRITE('L=        ');
    FOR K:=1 TO N DO WRITE(L[K]:10);
    WRITELN;
    INS(N,L);
    WRITE('L(SORTED)=');
    FOR K:=1 TO N DO WRITE(L[K]:10);
    WRITELN;
  END.