lmem[0]:=gmem[0]                            ; délka posloupnosti
lmem[1]:=cpuid-1
lmem[1]:=lmem[1]%gmem[0]
lmem[1]:=lmem[1]+1                          ; pořadí prvního čísla v mé dvojici
lmem[2]:=cpuid-1
lmem[2]:=lmem[2]/gmem[0]
lmem[2]:=lmem[2]+1                          ; pořadí druhého čísla v mé dvojici
lmem[3]:=gmem[lmem[1]]
lmem[4]:=gmem[lmem[2]]
gmem[lmem[1]]:=1                            ; příznak bytí největším číslem	
if lmem[3]<lmem[4] then gmem[lmem[1]]:=0    ; tady musí být ostrá nerovnost
if gmem[lmem[1]]=1 then gmem[0]:=lmem[3]    ; zapíše největší číslo
halt