512*8=4096 бит
т.к. 1 байт = 8 бит
Вот, во вложении вся программа, (на free-pascal компиляция и запуск), а файлы, я думаю, вы сами сможете добавить, спрашивайте, если не понятно, удачи
17+1=18
18+1=19
19+1=20
20+1=21
21+1=22
22*2=44
44+1=45
45*2=90
90+1=91
91*2=182
182*2=364
364*2=728
728+1=729