Pascal/Turbo Pascal - ayuda con pascal¡¡¡¡

HOLA.
DE VERDAD QUE NECESITO AYUDA CON UN PROGRAMA Q ME DEJO MI PROFESOR AHORA ESTAMOS EN LA FASE DE CICLOS CON WHILE, REPEAT, FOR. PUES YO MEDIO LE ENTIENDO A ESTO DE LA PROGRAMACION PERO SIEMPRE PUEDO HACER LOS PROGRAMAS PERO AHORA NOS DEJO UNO DEL CUAL NO PUEDO SALIR. YA LO INTENTE MIL VECES Y NO PUEDO HACERLO. POR FAVOR RUEGO DE AYUDA URGENTE¡¡¡ EL PROGRAMA SE TRATA DE:
HACER QUE EL USUARIO INGRESE UN NUMERO Y ESE NUMERO PASARLO A NUMEROS BINARIOS¡¡¡¡¡
EL PROGRAMA TIENE QUE SER ELABORADO CON CICLOS YA SEA ANIDADOS O CON UN SOLO CICLO.
POR FAVOR DE VERDAD QUE NECESITO ESE PUNTAJE EN MIS NOTAS. SUPLICO AYUDA¡¡¡¡¡ POR FAVOR.
DE ANTEMANO MUCHISIMAS GRACIAS.

hola christian .

1º- aprende las reglas del foro (de todos los foros) escribe en minusculas.
2º- a lo mejor puedo ayudarte los numeros HEX y BINARIOS y de echo cualquier sistema de numeracion OCTAL u cualquier otro , no tienen secretos para mi .

Debes poner algo de tu parte y como minimo enviar lo que tengas echo aunque no funcione y decir donde fallas.

Cualquier cosa que sepas hacer a mano , en un folio , pizarra etc se puede plasmar, casi directamente en PASCAL (de echo en casi cualquier lenguaje de programacion), tan solo debes conocer un poco el lenguaje y por supuesto
saber lo que estas haciendo.

NO te voy a realiar la tarea completa , te puedo echar un cable.

Postea en este mismo foro , y empieza con las minusculas.

SALUDOS de MICROPAIS.

hola christian.
...como no se si voy a estar disponible durante los siguientes 4 dias,
(de momento me toca limpiar y pintar la piscina ¡¡¡ cago en la pipa !!!).

Ahi va el programa:
________________________________________________________________

uses crt;
var
numero_usuario:word;
potencia:longint;
a:word;
x_bit:array[1..16]of byte;
begin
clrscr;

writeln('introducca un numero positivo 16 bit (max 65535)');
readln(numero_usuario);

potencia :=1;
for a:=1 to 16 do
begin
if (numero_usuario and potencia)=0 then x_bit[a]:=0 else x_bit[a]:=1;
{ writeln(potencia);}
potencia:=potencia*2;
end;
writeln(numero_usuario,' decimal en binario es :');
for a:=16 downto 1 do
begin
write( x_bit[a]);
end;
writeln(' BIN');

readln;

end.