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

var n,rez,b: integer;
begin
readln(n);
b:=1;
while n<>0 do
begin
rez:=rez+(n mod 2)*b;
b:=b*10;
n:=n div 2;
end;
writeln(rez);
end.

var n, m: Longint;
begin
  ReadLn(n); m:=$80000000;
  repeat Write(Ord(n and m<>0)); m:=m shr 1; until m=0;
  WriteLn;
end.

var n, m: Longint;
begin
  ReadLn(n); m:=$80000000;
  while (n and m=0) and (m<>0) do m:=m shr 1;
  repeat Write(Ord(n and m<>0)); m:=m shr 1; until m=0;
  WriteLn;
end.

var n, i: Longint;
begin
  ReadLn(n); i:=(8*SizeOf(n)-1)*Ord(n<>0);
  while n>0 do begin Dec(i); n:=n shl 1; end;
  for i:=i downto 0 do begin Write(Ord(n<0)); n:=n shl 1; end;
  WriteLn;
end.

var n,i: longint;
begin
readln(n);
i:=1;
while n-i>=0 do  
i:=i*2;
i:=i div 2;
while i<>0 do
begin
if n div i =1 then
begin
write(1);
n:=n-i;
end
else
write(0);
i:=i div 2;
end;
end.

 begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;

begin
     s:=x mod 2+s;
     x:=x div 2;
  end;

var a, n:Integer;
var rez, l:string;
begin
  Readln (n) ;
 if n=1 then 
 begin
 rez:='1'
  ;
  n:=n-1;
  end;
  While n>0 do 
  Begin 
  a:=n mod 2;
    n:=n div 2;
if a=1 then
rez:='1'+rez;
if a=0 then
rez:='0'+rez  ;
 end  ; 
 write(rez);
end.

var n: Integer; r: String;
begin
  ReadLn(n);
  repeat r:=Chr(Ord('0')+n mod 2)+r; n:=n div 2; until n=0;
  WriteLn(r);
end.