Погите(( вводиться целое число х надо забить его на разряды например ввод: 1356- вывод: 1*1000*3+3*100+5*10+6

Сама программа (проверено в системе Кумир версии 2.1.0-rc7):

алг
нач
цел а
лит б
цел н
ввод а
б := цел_в_лит(а)
нц для н от 1 до длин(б)
вывод б[н]
если н<>длин(б)
то вывод "*",10**(длин(б)-н),"+"
все
кц
кон

Для введённого числа 1356
Вывод получится такой: 1*1000+3*100+5*10+6