Solução em Pascal do Problema 17

program BaseBinaria;
var
  n,   {numero na base decimal}
  Bin, {numero transformado para base 2}
  q,   {dividendo}
  d,   {divisor}
  r,   {resto}
  Pot: integer;
begin
  write ('Digite um numero natural: ');
  read (n);
  q := n;
  Bin := 0;
  Pot := 1;
  while q>0 do begin
                 d := q div 2;
                 r := q mod 2;
                 q := d;
                 Bin := Bin+(r*Pot);
                 Pot := Pot*10;
               end;
  writeln ('O numero ',n,' escrito na base binaria: ',Bin);
end.