Перевод из десятичной системы в двоичную

program str1;
uses crt;
function dec2bin(x:integer):string;
var s:string;
begin
  s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
dec2bin:=s;
end;
var a: integer;
 
begin
clrscr;
writeln('Vvedite chislo:');
readln(a);
writeln('poluchenoe chislo:',dec2bin(a));
readln;
end.

uses crt;
var m:array[1..100]of integer;
n:longint;
i,k:integer;
 
begin
 clrscr;
 write('-> ');
 readln(n);
 k := 0;
 if n=0 then
 begin
  k:=1;
  m[k]:=0;
 end else
 while n<>0 do
 begin
  inc(k);
  m[k] := n mod 2;
  n := n div 2;
 end;
 for i:=k downto 1 do write(m[i],' ');
 readln;
end.

program asdasd;
var c,r,m,i,k,j:integer;
begin
readln(j);
k:=1;
for i:=1 to j do
begin
if k<j then k:=k*2; end;
if k>j then k:= k div 2;
   for m:=1 to j do
   begin
   if ((k=1) and (j=0))or((k=0) and (j=0)) then write()
    else
   if k=j then begin j:=0; write(1);end
   else 
      if k<j then begin j:=j-k; k:=k div 2; write(1); end
      else
        if k>j then begin k:= k div 2; write(0); end;
   end;
          end.

var a,b,c,i,k:integer;
 mas: array[0..1000] of integer; 
begin 
k:=0; 
readln(a);
 repeat 
b:=a mod 2;
k:=k+1; 
mas[k]:=b; 
c:=a div 2; 
if c>=2 then a:=c; 
until c<2; 
write(c); 
for i:=k downto 1 do write(mas[i]);
 end.

var
  a, mask: integer;
  i, j: integer;
 
begin
  write('a? ');
  readln(a);
 
  write('b: ');
  if (a=0) then
    writeln('0')
  else begin
    mask:=-maxint-1;
    i:=sizeof(a)*8;
    while ((a and mask)=0) do begin
      mask:=mask shr 1;
      dec(i);
      end;
    write('1');    
    for j:=i-1 downto 1 do begin
      mask:=mask shr 1;
      if ((a and mask)<>0) then
        write('1')
      else
        write('0');
      end;
    writeln;
    end;
 
  readln;
end.