Дано натуральное число 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.

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

3  учеников этого класса любят все три вида спорта