K01: h ← 1
K02: Powtarzaj h ← 3h + 1, aż h ≥ n
K03: h ← h div 9
K04: Jeśli h = 0, to h ← 1
K05: Dopóki h > 0: wykonuj K06...K10
K06: Dla j = n - h, n - h - 1, ..., 1: wykonuj K07...K09
K07: x ← d[j]; i ← j + h
K08: Dopóki (i ≤ n) i (x > d[i]): wykonuj d[i - h] ← d[i]; i ← i + h
K09: d[i - h] ← x
