помогите составить програму перевода из 10 в 2 число 100.

любое число

число 100

var  b:array[1..100001] of integer;var a,c,i:integer;beginc:=0;write('десятичное число: ');readln(a);while a<>0 dobeginif a mod 2 = 0 thenbegina:=a div 2;c:=c+1;b[c]:=0;end;if a mod 2 <>0 thenbegina:=a div 2;c:=c+1;b[c]:=1;end;end;write('двоичное число: ');for i:=c downto 1 dowrite(b[i])end.