PROGRAM CQSORT3 (INPUT,OUTPUT);
  TYPE RANGE=1..50 ;
  VAR N:RANGE;
      A:ARRAY [RANGE] OF INTEGER;
      STACK:ARRAY [RANGE] OF INTEGER;
      STACK1:ARRAY [RANGE] OF INTEGER;
      STACK2:ARRAY [RANGE] OF INTEGER;
      I:INTEGER;

{$I B:QSORT3.SRC}

BEGIN
  READLN (N);
  FOR I:=1 TO N DO
    READ (A[I]);
  READLN;
  WRITE ('DATA ARE : ');
  FOR I:=1 TO N DO
    WRITE (A[I],' ');
  WRITELN;
  QSORT3(N) ;
  WRITE ('SORTED DATA ARE : ');
  FOR I:=1 TO N DO
    WRITE (A[I],' ');
  WRITELN
END.