Дано натуральное число n. выведите его представление в двоичном виде в обратном порядке. pascal abc

Var n:integer;
begin
write('n = '); readln(n);
while n<>0 do
 begin
 write(n mod 2);
 n:=n div 2;
 end;
writeln;
end.

Пример:
n = 8
0001