program Program01;

var 
	szam, i, j : integer;
	tomb : array[1..100] of integer;	
BEGIN
	Write('Szám: ');
	ReadLn(szam);
	
	i := 0;
	repeat
		i := i + 1;
		tomb[i] := szam mod 2;
		szam := szam div 2;		
	until szam = 0;
	for j := i downto 1 do
		Write(tomb[j]);
	WriteLn;
	ReadLn;
END.