PROGRAM CQSORT1(INPUT,OUTPUT);
  TYPE RANGE=1..1000;
  VAR A:ARRAY [RANGE] OF INTEGER;
      I,
      N : RANGE  ;

{$I B:QSORT1.SRC}

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