Решить! ! ​ надо найти точку на графике

Для перевода чисел из десятичной системы счисления в двоичную используют так называемый "алгоритм замещения", состоящий из следующей последовательности действий:Делим десятичное число А на 2. Частное Q запоминаем для следующего шага, а остаток a записываем как младший бит двоичного числа. Если частное q не равно 0, принимаем его за новое делимое и повторяем процедуру, описанную в шаге 1. Каждый новый остаток (0 или 1) записывается в разряды двоичного числа в направлении от младшего бита к старшему. Алгоритм продолжается до тех пор, пока в результате выполнения шагов 1 и 2 не получится частное Q = 0 и остаток a = 1Пример:
35(в десятичной) 
35/2=17 35-2*17=1 
17/2=8 17-2*8=1 
8/2=4 8-2*4=04/2=2 4-2*2=0 
2/2=1 2-2*1=0
1/2=0 1 
записываем число снизу вверх:100011 
35=100011

{Кратность 5ти}
var i, i1: integer;
begin     
 readln(i1);     
 for i:=0 to i1 do         
 if (i mod 5 = 0) then           
  writeln(i, ': ', sqr(i))         
 else             
  writeln(i, ': не кратно пяти');
end.

{ Больше 15-ти }
var i, b, c: integer;
begin     
for i:=1 to 15 do     
begin         
readln(b);         
if (b > 15) then             
c := c + 1;     
end;     
writeln(c);
end.

const N=5; //Любое кол-во:)
var a: real;   
i, count: integer;
begin     
for i:=0 to N-1 do     
begin         
readln(a);         
if (a > 0) then             
count := count + 1;     
end;     
writeln(count);
end.