Помогите прошу пожалуйста!
Вспомните задачу о вычислителе ,умеющем только умножать на 2 и прибавлять 1 .Разрабатывать для него рациональные алгоритмы будет значительно проще,если
воспользоваться следующей блок-схемой :...... Используя эту блок-схему ,разработайте рациональные алгоритмы получения из числа 0 чисел 1024 и 500.

где выводит?

Writeln(1 или 0)

Если выводит 1 значит вычитание, если 2 - деление.var ch:integer;beginread(ch);while ch>0 do begin     if (ch mod 2)=0 then begin                           ch:=ch div 2;                          write(2);                          end                     else begin                          ch:=ch-1;                          write(1);                          end;               end;end.