Посмотрите пожалуйста. Заранее благодарен!Код
var
bin:array[1..1000] of integer;
dec,f,c,i,k:integer;
begin
write('dec=');
readln(dec);
i:=2;
f:=dec;
c:=dec mod 2;
repeat
f:=f div 2;
c:=f mod 2;
bin[i]:=c;
i:=i+1;
until f=1;
for k:=i downto 2 do
write(bin[k]);
readln;
end.