It feels like Pascal in Cyrillic. Autotranslation, with a little manual correction, but I can't fix КНЦ (autotranlated to KNC):<p><pre><code> FUNC FACT (N);
NAME: R;
1 -> P;
FOR I FROM 1 TO N ::
R * I -> R
ALL
RES: R
KNC;
FOR N FROM 0 TO 6 ::
? "FACT(", N, ") = ", FACT(N)
ALL;</code></pre>
Since I know russian well, here's a proper translation for y'all<p><pre><code> 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;</code></pre>
Few fixes:<p>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.<p>2. You've got few typos mixing "R" and "P". Should be "R" everywhere.<p>3. Instead of "ALL" you should use "DONE".<p>4. Instead of "KNC" you should use "END".<p>So it would look like this:<p><pre><code> 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;</code></pre>
>It feels like Pascal in Cyrillic<p>replace cyrillic w/ russian and it'd be ok.<p>КНЦ = 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.<p>Also 'ALL' (и все = it's over/that's all), which should be 'end' as in begin/end in pascal.<p>The main point still stands - it's Pascal.
I would read «КНЦ» as «КОНЕЦ», literally “an end” or “the end” (Russian does not have anything resembling articles). Who needs vowels, anyway.<p>Also, «ВСЕ» feels like «ВСЁ» in this context, I’d translate that as “that’s all”.
The acronyms are because it was originally russified by substituting character codes in Pascal binary. Thus VAR became ИМЯ, END became КНЦ and so on. Same reason JOB hilariously became ЗАД in the liberated OS/360.<p>Everyone's happy, head of development celebrates his 3rd degree Lenin's premium.
[flagged]