Как число 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.

http://векторное-управление. рф/perevod-chisel.html онлайн перевод чисел советую