pasBSABC

##
var startTime := Milliseconds;
var n := 100000;
var a := ArrGen(n, n, x->x-1);
for var i := 0 to n-1 do
  for var j := i+1 to n-1 do
    if a[i]>a[j] then swap(a[i],a[j]);
print(Milliseconds - startTime);