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
;

/