#deg 3 var x: 0..1; { byl vrchol označen ve vstupu? } y: 0..1 = 0; { je označen teď? } prev: 0..1 = 0; { předchozí stav } i: 1..3; begin prev := y; { zapamatujeme si, jestli už byl označen } if x=1 then y := 1; { přeneseme označení ze vstupu } for i := 1 to 3 do { podívejme se na všechny sousedy } if S[i].y <> 0 then { je-li i-tý soused označen, } y := 1; { označ i sebe sama } if y = prev then stop; { pokud se nic nemění, mužeme končit } end.