program atalakit;
procedure kettesbe(n:integer);
var egesz, maradek: integer;
begin
   maradek:= n mod 2;
   egesz:= n div 2;
   if egesz > 0 then kettesbe(egesz);
   write(maradek);
end;
begin
  write('10 a 2-be az ');
  kettesbe(10);
  readln;
end.