ПЛК 160 циклическое включение выходов

[Yegor]

VAR
    timer_ton: TON;
    outN: INT;
END_VAR

timer_ton(PT := T#30s, IN := NOT timer_ton.Q); (* Таймер на самосбросе, Q таймера равно TRUE раз в тридцать секунд *)
outN := (outN + BOOL_TO_INT(timer_ton.Q)) MOD 3; (* Инкремент outN по Q таймера, то есть +1 один раз в тридцать секунд. Рост ограничивается до 2 взятием остатка от деления на 3 *)
DO1 := outN = 0; (* DO1 = TRUE когда outN = 0 *)
DO2 := outN = 1;
DO3 := outN = 2;

Сессия шоль?