xerex21 Var

  b:array[1..100001] of integer;

var a,c,i:integer;

begin

c:=0;

write('десятичное число: ');

readln(a);

while a<>0 do

begin

if a mod 2 = 0 then

begin

a:=a div 2;

c:=c+1;

b[c]:=0;

end;

if a mod 2 <>0 then

begin

a:=a div 2;

c:=c+1;

b[c]:=1;

end;

end;

write('двоичное число: ');

for i:=c downto 1 do


write(b[i])
end.