PROGRAM CHEAP(INPUT,OUTPUT);
  TYPE HH=ARRAY[1..30] OF INTEGER;
  VAR H:HH;
      TAIL,HEAD,N,I:INTEGER;

{$I B:HEAP.SRC}

  BEGIN
    READLN(N);
      INIT;
      FOR I:=1 TO N DO
          READ(H[I]);
      WRITELN;
      HEAP(1,N,H);
      FOR I:=N DOWNTO 1 DO BEGIN
          WRITE (H[1], ' ');
          H[1]:=H[I];
          ADDHEAP(1,I-1)
      END
  END.