Как число 2003 перевести в двоичную?

Из какой? Если из 10-чной, то делением на 2 и записыванием остатков в обратном порядке

uses crt;
var n:integer;s:String;
begin
clrscr;
readln(n);
while n>0 do begin
insert(chr(48+n mod 2),s,1);
n:=n div 2;
end;
writeln(s);
readkey;
end.

<a rel="nofollow" href="http://векторное-управление. рф/perevod-chisel.html" target="_blank">http://векторное-управление. рф/perevod-chisel.html</a> онлайн перевод чисел советую