;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