;Trideni metodou Merge

N=1000
Dim pole(N)
Dim pompole(N)

Statement Vypis{}
SHARED pole(),N
For i=0 To Int(N/10)-1
  For j=1 To 10
    Print pole(i*10+j)," "
  Next j
  NPrint ""
Next i
End Statement


Statement Merge{odkad,kam}
SHARED pompole(),pole()
  pulka=Int((odkad+kam)/2)
  If pulka>odkad Then Merge{odkad,pulka}
  If pulka+1