Rapira (Рапира) – Soviet programming language interpreter (github.com)

Also, «ВСЕ» feels like «ВСЁ» in this context, I’d translate that as “that’s all”.

1. "ИМЕНА" is plural, so instead of "NAME:" it's a bit more appropriate to use "NAMES:". Probably should be "VARIABLES" or "VARS" in modern context.

2. You've got few typos mixing "R" and "P". Should be "R" everywhere.

3. Instead of "ALL" you should use "DONE".

4. Instead of "KNC" you should use "END".

So it would look like this:

    FUNC FACT (N);
      NAMES: R;
      1 -> R;
      FOR I FROM 1 TO N ::
        R * I -> R
      DONE
    RES: R
    END;

    FOR N FROM 0 TO 6 ::
      ? "FACT(", N, ") = ", FACT(N)
    DONE;

replace cyrillic w/ russian and it'd be ok.

КНЦ = end (конец in russian is end). However, in bulgarian in means 'thread' (as in sewing thread) and it has lots its meaning of end, aside from 'from needle to thread' expression where it means from the tip of the needle to the end of the thread.

Also 'ALL' (и все = it's over/that's all), which should be 'end' as in begin/end in pascal.

The main point still stands - it's Pascal.

    FUNC FACT (N);
       NAMES: P;           (* variable names *)
       1 -> P;
       FOR I FROM 1 TO N ::
          P * I -> P
       DONE                (* endif *)
    RET: P                 (* return value *)
    END;                   (* end of function *)
    
    FOR N FROM 0 TO 6 ::
       ? "FACT(", N, ") = ", FACT(Н)   (* print *)
    DONE;

But then I read much more about the design, and it turns out that the reason machine was ternary is the designers had to minimize number of transistors, and leaned heavily into transformer-based logic - which naturally favors ternary values.

But for transistor/IC circuitry, there are no advantages in ternary - they key to reliability is margins, and margins require only two states. Any transistor-based ternary implementation would be forced to using a pair of bits and declare one of the four states invalid - a clear efficiency loss.

History confirmed it - even in MSU, once transistors became more available, they abandoned SETUN and started using those. Turns out at least that ternary branch was just a evolutionary dead end.

[0] https://en.wikipedia.org/wiki/Setun

https://www.amazon.com/100-Rapira-Platinum-Razor-Blades/dp/B...