Дано натуральное число N. Выведите его представление в двоичном виде в обратном порядке.
Например:
Входные данные : 6
Выходные данные: 011
Программа на Паскале очень нужно!

var a:array[1..100] of integer;

n,i,p:integer;

begin

 readln(n);

 i:=1;

 while n>1 do

 begin

   p:=n mod 2;

   a[i]:=p;

   n:=n div 2;

   i:=i+1;

   end;

 a[i]:=n;

 for p:=i downto 1 do

   write(a[p]);

end.