Добрый день. Меня заинтересовал ваш ответ "var i:intedger; d:array[100]of intedger;begini:=0;d[0]:=1;while d[i]begind[i+1]:=d[i]*2;i:=i+1;end;..." на вопрос http://www.liveexpert.org/topic/view/136200-perevesti-v-delfi. Можно с вами обсудить этот ответ?