program qsort;

uses libc;

function comp(in1: Pointer; in2: Pointer): longint; cdecl;
var i1,i2: integer;
begin
  i1:=integer(in1^);
  i2:=integer(in2^);
  comp:=i1-i2;
end;

var table: array [0..80] of integer;
    i: integer;

begin
  randomize();
  for i:=0 to 80 do
  begin
    table[i]:=random(65536);
    write(table[i],' ');
  end;
  writeln();
  writeln('----------------');
  libc.qsort(@table,81,sizeof(integer),@comp);
  for i:=0 to 80 do
  begin
    write(table[i],' ');
  end;
  writeln();
end.