Program Exer7;
Var
  n : integer;
  bin : string;
Begin
  { AndreSardo.com - Não pode ser utilizado na sua avaliação }
  writeln('## Conversor do sistema binário ##');
  write('Escreva um número: ');
  readln(n);
  while n<>1 do
    begin
      if (n mod 2)=0 then bin:= '0'+bin
      else   bin:= '1'+bin;
      n := n div 2;
    end;
  bin := '1'+bin;
  writeln('A conversão para o sistema binário é: ', bin);