Надо создать проект С днём рождения html​

Чтобы перевести десятичное число в двоичную систему счисления нужно данное число делить на 2, пока оно не поделится без остатка, а далее,записать полученное число в двоичной системе счисления справо на лево.. Сейчас покажу как. Начинаем деление:
1- 519:2=259 (Остаток 1).

2- 259:2=129 (Остаток 1).

3- 129:2=64 (Остаток 1).

4- 64:2=32 (Остаток 0).

5- 32:2=16. (Остаток 0).

6 - 16:2=8 (Остаток 0).

7- 8:2=4 (Остаток 0).

8- 4:2=2. (Остаток 0).

9 - 2:2=1. (Остаток 0).

Записываем: 1000000111.

То есть, 519 в десятичной системе счисления равен 1000000111 в двоичной системе счисления.

В задании нужно узнать сколько единиц в записи числа, получаем что 4. (Вариант 4).

Program Alexander1;
uses crt;
const n = 10;
var
  A:array [1..n] of real;
  i,k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  Randomize;
  {ввод чисел}
  for i:=1 to n do
    begin
      A[i]:= Random(101)-50;
      write(A[i]:7:2,' ');
    end;
  writeln('Числа, которые больше своего правого соседа: ');
  k:=0;
  for i:=1 to n-1 do
    begin
      if A[i]>A[i+1] then
        begin
          k:=k+1;
          writeln(i,'-е число: ',A[i],'>',A[i+1]);
        end;   
    end;
  writeln('Всего ',k,' таких чисел');
end.