fork download

copy

 
var
a:array[1..1000] of longint;
b,c:longint;
 
procedure qs(l,r:longint);
var
   i,j,x,temp:longint;
begin
   x:=a[(l+r) div 2];
   i:=l;
   j:=r;
   while (i<=j) do begin
      while (a[i]<x) do i:=i+1;
      while (a[j]>x) do j:=j-1;
      if (i<=j) then begin
         temp:=a[i];
         a[i]:=a[j];
         a[j]:=temp;
         i:=i+1;
         j:=j-1;
      end;
   end;
   if (l<j) then qs(l,j);
   if (i<r) then qs(i,r);
end;
begin
Readln(a[c]);
qs (a[c]);
For b := 1 to size do begin
Writeln(a[b]);
End;
end.

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(28,11) Warning: Variable "c" does not seem to be initialized
prog.pas(29,9) Error: Wrong number of parameters specified for call to "qs"
prog.pas(30,20) Error: Identifier not found "size"
prog.pas(33,4) Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty