TextWindow.WriteLine("Введите число")
dig_text[0] = "ноль"
dig_text[1] = "один"
dig_text[2] = "два"
dig_text[3] = "три"
dig_text[4] = "четыре"
dig_text[5] = "пять"
dig_text[6] = "шесть"
dig_text[7] = "семь"
dig_text[8] = "восемь"
dig_text[9] = "девять"
num = TextWindow.ReadNumber()
length = Text.GetLength(num)

For i = 1 To length
  dig = Text.GetSubText(num,i,1)
  dig_array[i-1] = dig
EndFor

For i = 1 To length
For z = 0 To 9
if dig_array[i-1] = z Then
TextWindow.WriteLine(dig_text[z])
EndIf
EndFor
EndFor