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.