Как перевести число 2001 в двоичную систему

2-10 0-0 0-0 1 получается 10001

2а) input "ширина первого прямоугольника"; a1 input "длина первого прямоугольника"; b1 input "ширина второго прямоугольника"; a2 input "длина второго прямоугольника"; b2 if a1/a2=b1/b2 then print "фигуры подобны" else print "нет подобия" б) print '"первый треугольник: " input "первая сторона"; a1 input "вторая сторона"; b1 input "третья сторона"; c1 print '"второй треугольник: " input "первая сторона"; a2 input "вторая сторона"; b2 input "третья сторона"; c2 if (a1/a2=b1/b2) and (b1/b2=c1/c2) then print "фигуры подобны" else print "нет подобия"

Uses  crt; const  nmax=100; var  a1,a2: array[1..nmax] of integer;   n,i,b,k,s: integer; begin  randomize;   clrscr;   repeat    write('введите размер массива n (n in [1..',nmax,']): ');     readln(n);     write('введите число b (0< b< 100): ');     readln(b);   until (n in [1..nmax]) and (b in [1..99]);   writeln('массив a1');   for i: =1 to n do  begin    a1[i]: =random(99);     write(a1[i]: 4);     if a1[i]> b then    begin      inc(k);       a2[k]: =i;       s: =s+a1[i];     end;   end;   writeln;   writeln('среднее элеметов, больших b = ',s/k: 0: 2);   writeln('массив a2: ');   for i: =1 to k do write(a2[i]: 4);   readln; end.