PROGRAM CQSORT2 (INPUT,OUTPUT);
   CONST M=10;
   TYPE RANGE=1..10 ;
   VAR A:ARRAY [RANGE] OF INTEGER;
       I,
       N : RANGE;

{$I B:QSORT2.SRC}

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