NEERC/kequiv/tests/do12.dpr

   1 const N = 10000;\r
   2 var a : array [1..2 * N] of int64;\r
   3     i, k, j : integer;\r
   4     t : int64;\r
   5 begin\r
   6   randseed := 234478294;\r
   7   writeln (N);\r
   8   for i := 1 to 2 * N do a[i] := int64 (random (1000000000)) * 1000000000 + random (1000000000) ;\r
   9   for i := 1 to 2 * N do\r
  10     for j := i + 1 to 2 * N do\r
  11       if a[j] < a[i] then begin t := a[j]; a[j] := a[i]; a[i] := t end;\r
  12   for k := 1 to 100 do\r
  13    for i := 2 to 2 * N do\r
  14      if a[i] <= a[i - 1] + 2 then inc (a[i]);\r
  15   for i := 1 to 2 * N do begin\r
  16     write (a[i]);\r
  17     if odd (i) then write (' ') else writeln;\r
  18   end;\r
  19 end.