Меня всегда интересовало, есть ли встроенная быстрая сортировка в Паскале. И я прочитал, что есть во Free Pascal, называется так же qsort(или qsort2, если по убыванию). Вызывает процедуру: procedure qsort(var A: array of integer); procedure sort(l,r: integer); var i,j,x,y: integer; begin i := l; j := r; x := A[ (l + r) div 2 ]; repeat while A[i] < x do inc(i); while x < A[j] do dec(j); if not (i>j) then begin y := A[i]; A[i] := A[j]; A[j] := y; inc(i); dec(j); end; until i>j; if l < j then sort(l,j); if i < r then sort(i,r); end; begin sort(0,High(A)); end; Когда я отправляю задачи, как Free Pascal, то выдаёт CE. Есть ли она или жулики обманули меня?