== Eratosthenovo síto na RAMu == Program je pro model RAM popsaný v tomto dokumentu: http://mj.ucw.cz/vyuka/ads/02-complex.pdf Výjimkou je přidání instrukce print A, která vytiskne číslo na výstup (popř. obsah paměťové buňky). Vstup, tedy N, je v buňce 0, výstup je pro jednoduchost vypisován pomocí print. I-tá paměťová buňka (pro I >= 2) obsahuje 1, je-li I pravděpodobně prvočíslo, jinak 0. N := [0] I := 2 INIT: [I] := 1 // inicializace pole jedničkami I := I + 1 if I <= N then goto INIT I := 2 // hlavní cyklus MAIN: if [I] = 0 then goto NEXT // jestliže I je složené, přeskoč vyškrtávání násobků print I J := 2 * I MULTIPLES: [J] := 0 // vyškrtávání násobků J := J + I if J <= N then goto MULTIPLES NEXT: I := I + 1 // přesun na další I if I <= N then goto MAIN halt