Вот есть такая программа:
var n,c:integer;
begin
readln(n);
while (n div 2 > 0) do begin
c:=n mod 2;
n:=n div 2;
write(c,' ');
end;
write(1);
end.
Мне надо, чтобы выводило задом наперед. Но лучше без использования массивов.