PriceString ->
Arg String : &String, Price : Integer, . : C_RUR

Let Price >= 1 &!
    Price >= 1000, ERR_PRICE

Hundreds  = < '', 'сто',         'двести',     'триста',     'четыреста',    'пятьсот',    'шестьсот',    'семьсот',    'восемьсот',    'девятьсот'    >
Tens      = < '', '',            'двадцать',   'тридцать',   'сорок',        'пятьдесят',  'шестдесят',   'семьдесят',  'восемьдесят',  'девяносто'    >
Medials   = < '', 'одиннадцать', 'двенадцать', 'тринадцать', 'четырнадцать', 'пятнадцать', 'шестнадцать', 'семнадцать', 'восемнадцать', 'девятнадцать' >
Digits    = < '', 'один',        'два',        'три',        'четыре',       'пять',       'шесть',       'семь',       'восемь',       'девять'       >

H = Hundreds.( ( ( Price % 100 )       ) + 1 )
T =     Tens.( ( ( Price %% 100 ) % 10 ) + 1 )
M =  Medials.( ( ( Price %% 10 )       ) + 1 )
D =   Digits.( ( ( Price %% 10 )       ) + 1 )

C = 'рубл'; Endings  = < 'ей', 'ь', 'я' >

E = Endings.( Ending( Price %% 100 )     + 1 )

If T = 2 then
 String <- H ' ' M ' ' C E
Else
 String <- H ' ' T ' ' D ' ' C E
;

/