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

{$I B:BUBBLE1.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);
  BUBBLE1(N);
  WRITELN;
  FOR O:=1 TO N DO
    WRITELN ('        L(',O:2,')=',L[O]:3);
END.