PROGRAM CBUBBLE2(INPUT,OUTPUT);
VAR L:ARRAY[ 1..100 ] OF INTEGER;
    N,K,F,J,O:INTEGER;

{$I B:BUBBLE2.SRC}

BEGIN
  READLN(N);
  FOR O:=1 TO N DO
    READ(L[O]);
 WRITELN;
  FOR O:=1 TO N DO
  WRITELN ('        L(',O:2,')=',L[O]:3);
  BUBBLE2(N);
 WRITELN;
  FOR O:=1 TO N DO
  WRITELN ('        L(',O:2,')=',L[O]:3);
END.