Машина Поста. Копирование слова

[MaxMelnikov]

Дано постово слово 2 порядка.

Постово слово. Для полной определенности исходные данные на ленте обрамляются слева и справа единицами — это границы. Внутри постова слова количество пробелов (нулей) может быть 0, 1, ... . Тогда говорят, постово слово порядка k, если внутри — подряд стоящих нулей максимум k. Т.е., в постовом слове порядка 0 вообще нет нулей, в слове порядка 1 допускается подряд стоящих не более одного нуля, и т.д. Это позволяет контролировать выход за границы постова слова — там количество нулей и слева, и справа больше k.

Задание: скопировать слово в двоичном алфавите с удвоением символов: 0~00,1~11.

Пример выполнения программы должен выглядеть так:
Исходные данные:

Результат работы программы:

[MaxMelnikov]

Тема не актуальна. Решил сам!
Если кому интересно, могу выложить

[Stilet]

Выкладывай конечно - может пригодится.