Russian language

Recently I read Wikipedia, and by the will of fate I stumbled upon an amazing programming language VERB. This is one of the analogues of the languages ​​Pascal and Oberon.
The main difference is that only Russian official words are used in the word.


It's hard! It would seem that the sweet time of the youth of our parents has sunk into oblivion, when programming languages ​​were developed in Russian, but it was not there. Using the principles of Pascal and Oberon, a group of comrades develops this cool language, writing a compiler for console applications and quite a solid set of subroutines that implement the most diverse functionality.

Read more about the language can be on the official website of the developers - www.glagol.nad.ru , but to stimulate interest, I will give a couple of examples:
')
The well-known Integer and Real data types, Integer and Real, respectively, are Short and Long, and Narrow and Wide, respectively. The developers of the word have been implemented such a combination - ShirVeshch and UzkTsel. As for me - strongly.

Or another:

TASK PisTsel- (v: TSEL); (* 0 <= c <100000 *)
PER
n: AIM;
digits: SERIES 6 FROM SIGN;
DECREE
n: = 0;
TO REPEAT
digits [n]: = SIGN (c Balance 10 + VTsL ("0"));
q: = n Share 10;
INCREASE (n)
TO c = 0;
digits [n]: = 0X;
Writing chain (figures)
CON KisTsel;
PROBLEM PisTsep- (r: CHAIN);
PER
n: AIM;
DECREE
n: = 0;
BYE (n <SIZE (p)) AND (p [n] # 0X) EX
SignS (r [n]);
INCREASE (n)
KOH
KON Writer Chain;
TASK ChetTsel- (c +: AIM);
PER
sign: SIGN;
DECREE
C: = 0;
ChitZnak (sign);
BYE ("0" <= symbol) AND (symbol <= "9") EX
c: = 10 * c + (VTSEL (zn) -VTsEL ("0"));
ChitZnak (sign)
KOH
KOH Chittsel;
PROBLEM log2 (x: AIM): AIM; (* x> 0 *)
PER
about: goal;
DECREE
o: = 0;
BYE x> 1 EX
x: = x SHARE 2;
INCREASE (o)
KOH;
RETURN ABOUT
KOH log2;

As for me, such a language is worth learning. At least in the evenings. As an entertainment.